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“Oct-19 
TTITLE “SMGSSMINIMUM_UPDATE - Binieue te calculation y 
} ot upde leu and output 


SAINI RUM OPDATE ( 
dER = "1-066" | File: SMGMINUPD.B32 Edit: STANT046 


“ef 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


° 
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° 

‘ ’ 
'@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONL DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®& 
THIS SOFTWARE OR ANY OTHE e 

MOF THE SOFTWARE IS MEREDY 
© 

RANSFERRED. e 
® 

HE yA oy pe = N THIS SOFTWARE IS wet} TO CHANGE WITHOUT NOTICE ®* 
es 
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eo 
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I 
T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


; ITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. 
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Pp 
SMGRTL .BUGSRCISMGMINUPD .832: 1 aoe f 


—in 


1 'ee 
' FACILITY: Screen Management 


i ABSTRACT: 

i This module contains routines which inspect two screen 
representations and col culete the near-minimal sequence of 
terminal commands to change the current contents of the screen 
to the new representation of the screen 
Also contained herein are routines pertaining to buffering. 

i ENVIRONMENT: User mode, Shared Library routines. 

i AUTHOR: R. Reichert, CREATION DATE: 15-APR-1983 

i MODIFIED BY: 


i 1-046 - STAN 21-Oct-1984. Don’t reset attributes if none were set. 
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S8333SSSSE3 
SRIFAEELLS 
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STAN 17-Apr-19 


Store ae tines t Sereeees in PBCB. 
STAN 7-Apr=19 ict ine 
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' 

' 
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: ecto 

; Renove use of TASCID. that causes PSECTS 
te ae oqeeterten thus making their use impractical for 
shar 

: cone cursor owe erasing screen. 
: test for unknown terminal. 
' 
' 
' 
' 
' 
'‘ 
' 
' 
' 
' 
' 
' 
' 
' 
' 
‘ 
' 
' 
' 
' 
' 
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' 
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00 
00 
0058 
0059 


! 1-040 - STAN others} me Loh j inet cyrece position doesn't change 


efter "ERD Bot *e ing regnen in the exit pencter.. 
Ch END i) eesti © BEGIN_NORMAL _RENDITION. 
Handle unknown termina 


ae truncetion icon wo also other control displays 

i > eae reuieee. "Set PRT ThiBuTeS _ON and SET_ATTRIBUT g “OFF. 
! 1-039 - rm 25-F eb-1984. ix 

Initialize cheracter panit sti from terminal characteristics 

cot “4 teratable c fy $4) . 

Ow sequences rder vector. 

Add t porary ose T CATTRI utes ONLY. 
= STAN 21-Feb-1 . Store as “bit in PBCB. 
. Install Pam's fix for vTS2s. 


fix in exit handler 
Hi = $T Fem 19a "AL AL Low rite terminal codes. 


v 
wn 
: 
—— 


t 
- STAN 14-Dec- . Fix got bug ie t 32. 
- RKR -Dec-1 AGSSERA oes TeaoARD. This inner routine 
goes directly to Shes siLush Or ER rather than SMGSFLUSH_BUFFER. 
edirect current cal is, to Shs 


: RASE_PASTEBOARD to call 

‘ SMGSSERASE _P BOARD instead 

‘ Fi - STAN 2-Nov-! Restore terminal width a exit. 
8 


STAN 1 “bet-| . Inve jee e screen 0. 
= STAN 13-Oct-1 Bug or scroll "othe Lines. 
- Handle DIAMOND and ~ a character displays. STAN 5-Oct-1983. 


. 
‘. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
° 
. 
. 
. 
. 
. 
* 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
° 
. 
. 
. 
. 
. 
. 
. 
. 
. 
2 
. 
. 
. 
- 
. 
. 
7 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
e 
. 
. 
. 
. 
. 
. 
. 
| 
‘ 
‘ 
‘ 
. 
. 
. 
‘ 
‘ 
‘ 
4 
. 
. 
‘ 
‘ 
‘ 
4 
‘ 
4 
‘ 
‘ 
‘ 
4 


Bete Se Oe Be Be Oe Oe Be Oe Oe Oe Oe Be Be Se Ge Oe He Oe Oe ee Oe Be Oe Oe Oe Oe ee ee Oe Oe Oe Oe OH Oe Oe ee OH Oe Oe ee Oe Oe Oe ee Oe oe ee Oe ee ee ee we 
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PETS Meee rete - tine nme coed Die hE Mn | of 


Clear coon on ex 
1-026 = Add “OUTPUT so th routines can 


Pit base rege y to the pb y- By i the pb addr. 


1-035 = Add SROSERASE PASTEBOARD. STAN 25- 983 
1-026 double fe o SMGSSCHECK_HDWR_SCROLL @ Hs tS UPD to support 
double-wide/double high text RER” 17-AUG-1 

1-023 - age gene het setual 7 te SROSERIN yPn to 
salty" RRR 12-AUG-19 

1-022 - Rodi f K_HDWR 33 t pass situa tion where in fact 

the virtua wes ther top 0 y contains we ey-i tee identical contents 

x 

For examp anole, “tt eet agi the last line ) a 

ieee | Lay vith the text 


ae the range 


fue: 

COMMAND : 
ou write the Last Line to COMMAND:, the ine’ the logic 
wil Coyrecrot | the virtual display and, re : nt the top Line. 
This will erpdure the right result but looks ugly. h 
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<> 
ww 


: 1 
3 1 
: 1 
: 1 
; 1 
: 1 
3 1 
- } 
3 38 1 
; 1% 1 
; 8 : 
; F 1 
; , 
; 999 : } 
Be } 
i gy 
: 10 | 
; 108 09 1 now this will also happen when you clear a Sree ag to git 
; 10 0110 1 Spaces since it falls into the upscroll log 
: 108 8 oe is fix rd ng | the cases where the vittusl disp ol ey 
; 109 i 1 has changed only in the | st or Last line, avoids scrolling 
; 110 1 1 and lets the I of minimal update repaint “ust the last line 
3 19) 16 1 ! 1-021 = RKR Remove t 80 oR a. $9 meat probes Cenpenes satin 
; We 3 ¥ code in SMGSS$F MIN_CURSOR_POS and S SET “PHY ICAL_CURS 
.. 18 1 should now now Sake cére sf th FH 
3; (116 0117 1°! 1-020 = RKR 5-AUG-1 Consolida = - code pertaining to 
: 115 8 + 1 actuall sore tog. ine phys cat scrolling region into a new 
: 138 1 1 subroutine ORCE_S REG. 
3; («11 0 1! 1-019 - + mall 1-AUG-19835. Modify SMG CHECK HOWR_SCROLL to provide 
; #118 121 1 Somnegro sting ay ve well. as upscrolling. 
; «119 1 § 1 ! 1-018 = STAN 28-Jul-19 — fix to remove scrolling 
3 130 1 1 reeten after use. 
: 121 126 1 ! 1-017 = RKR iin saw 1985 f bug found by J. Burrows. 
; 1 § 125 1 1-016 = RKR 14-JUL-19 Fpl code improvements and better comments 
: to newly-a code 
; ? ; : ly-added 
; 125 | 3 1! 1-015 = RKR 1 gngul=13 < Snemcy _MDWR_SCROLL. 
., $ 1 1 ! 1-014 = STAN fJun-19 Iongorary f 
. § 1 1:74 13 - STAN emery File rine t I dogg 
: 128 131 1 ! 1-012 = RKR 20-Ranei9 Renove e externel references to DD_ structures 
3 1 1 § , } longer needed (dr available). 
> 1 1 ! 1-011 = STAN road Mn mF “batching 
: 131 ? 1 ! 1-010 = STAN 1 
>. | § 135 1! Use shift itt Out an nd shift in. 
: 9 1 1 ! 1-009 - STAN 10-Ma 
> e 1 1! T rary fiefs or rendition attribute. 
; 135 1 1 ! 1-008 = ST TAN 8 yore 
> | 1 1! csuen bu or 8 on success exit. 
c's 140 1 ! 1-007 - STAN 2-May-1982 
; 1 141 1! Fixe Aas in tg 
3; 1 146 1! Handle reer rendition 
: 140 45 1! Don't flush buffer on aie forced exit. 


FeTeNe ue memennn re stele ween eosaente Eeceret BSG Bath SSBB con 


an 


6 
; «(141 144 1 ! 1-006 = STAM 1-May-1983 
: 128 fe : } snessrut ay TPuT, 
: 166 147 1/3 Fintshe S$SF/LUSH_BUFFER 
> (145 He 1! 1-005 - shed! Snéss tweak. RKR 26-APR-1983, 
: 146 149 1! I- - vod optimization. RKR 26-APR-1983. 
: 14 0150 1 ! 1-003 - Fix video attribute production. RKR 21-APR-1983. 
; 148 0151 1 ! 1-002 = Minor temp speed up. RKR 18-APR-1 
: sb O128 ' } 1-001 = Shell for further development. RKR 15-APR-1983. 
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SMGSSMIN 
Declarat 


DATA 
OOONOUE 


OOQOCOCOCOCOCO OOOO ooooooooooCooooooooOOooOoo 


ee ee ed en ee es 


SBSSLEAFENLSSSLESRAN LS SSVEALATLS SSVSARAWLSSSLSALAZTLS 


1 SBTTL Declarations’ 
TABLE OF CONTENTS: 


FORWARD ROUTINE 

! Public entry points 
SMGSERASE_PASTEBOARD, 
SMGSFLUSH_BUFFER, 


SMGSPUT_PASTEBOARD, 
SMGSSNAPSHOT, 

t Private entry points 
SMGSSCHECK_HDWR_SCROLL, 


SMGSSERASE_PASTEBCARD, 
SMGSSPBCB_EXIT_HANDLER, 
SMGSSSETUP_TERMINAL_TYPE, 
SMGSSFLUSH_BUFFER, 


SMGSSFORCE_SCROLL_REG, 
SMGSSPUT_SCREEN, 
SMGSSAUTOB_OUTPUT, 


SMGSSSET_ATTRIBUTES_ON 
SMGSS$SET-ATTRIBUTES OFF, 
SMGS$SOUTPUT 


SMGSSMIN_UPD 
SMGSSOUTPUT_PASTEBOARD, 


! Local entry points 


OUTPUT; 


SWITCHES: 
in include files 


a me a me a ee ee a dd et od od od od = od ot 


{RA PORTE = Minimum update calculatio B-Jan-1985 $3:26:93 AX-11 


ESTABLISH_BORDER_VECTOR : NOVALUE, ! 
RAS_RIN, ' Output record 


iss-32 V4.0-742 ° 
$ 4s a 


l 
“Oct-19 SMGRTL ..BUGSR 


Clears screen 


Flush remaining buffered 
output to screen by display id. 


Output pasteboard via user routine 
Take an RMS snapshot 


Check to see if harware scroll 
will help min. update 


Inner ERASE_PASTEBOARD routine 


! Exit handler to flush pasteboard 


Find out type of terminal. 


Flush remaining buffered 
output to screen by PBCB. 


Force physical scrollin 
region to that specified. 


Put text to screen with rendition 


! and cursor positioning 


Autobended entry to SMGSSOUTPUT 


Raw outputter 

force conpet etl ity eee temp 
Output pasteboard (use minimal 
update if this mode is enabled) 


' Create border vector 
with RM 
Low level output routine 


MGMINUPD .832; 1 (33 


oe 


ch ad 


+ Suataaiaal UP SMGSSMINIMUM_UPDATE - Mini dat iculati -Jan-1985 AX-11 Bliss-32 V4.0-742 P 
; “Declarations” catgrantbasetemins Pure icstweeee jose oet-19 #3: 3§: % YOMGRT TL. BUGSR 24 shentnors.632;1 —— (38 


; 209 11°=«1 $ 
i 310 14 ; 
; ai 13 1 | LINKAGES: ; 
: 9 4613 ; 
; 1 16 1: in include files 3 
: 216 1 1 : 
3 15 1 7% 3 
: 1 18 1 ! INCLUDE FILES : 
3 } 1 : ! : 
; 15 ? 1 REQUIRE ‘RTLIN: SMGPROLOG'; ! defines psects, macros : 
; 0 1 ' structures, & terminal symbols : 
; ! REQUIRE 'RTLIN:STRLNK.REQ'; ! JSB Linkages : 
: 1! : 
: : \ | EXTERNAL REFERENCES 3 
; $ B® : 
; { 0491 EXTERNAL ; 
; , Beo8 : PBD_L_COUNT, ! No. of pasteboards we currently have : 
: 231 9% 1 PBD_A_PBCB : VECTOR CPBD_K_MAX_PB, LONG 3 
: ¢ 95 : ! Table sf addresses of ‘eece's : 
: 3$ 1 PBD.V_PB_AVAIL : BITVECTOR CPBD_K_MAX PB); : 
3 5 38 } ! Bit vector or Slensleart id numbers in use. : 
: 500 EXTERNAL LITERAL : 
: 308 1 SMG$_WILUSERMS, ! RMS will be used later to perform output : 
3 re H : SMGS_INVPAS_ID; ! Invalid pasteboard id ; 
; 4 3 5 EXTERNAL ROUTINE 3 
> 264 507 1 LIBSGET_EF., ; 
; 245 5 1 Lier" $ 
: 26 509 1 SROSSE IRD _AIN CURSOR_POS : 
t 26 510 1 EGIN-PASTEBOARD UPDATE, : 
+ 248 511 1 SHGSEND ND_PASTEBOARD_UPDATE : 
: 249 31 1 TPUT_MINIMAC_ UPDAYE: : 
; 250 13° («1 3 
3 51 1 ! OWN : 
: 3g 516 1 FIRST_TIME_FLAG : INITIAL (0); !*#e*® Kludge -= ignore *** 3 
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SMGSERAS 


ay 
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OOQoooooococooo 


PUPP 


DOONAN WN MOOD NA NEW SO ODNOUE WIN" O OONOUS WN — 


DAPAAMIVIVIVMIVIVIE BEE LLLL LEE 


SOOQOCOCoOoooooQooQoooooooooooooooo 


Sera ah ah ah Ab ded db ahd eb eb th dh ah ah ah sh ah aha 


QLSAFERLIS 


SPRIPIFIAIPIPIPIFPINIII I IIII IIIA nr kd dd de ed 


ErPASIEBONID- Clear screens “ereutet bait 2:38:43 USMcnteSeugacdsmentnord 032; (4) 


ZSBTTL 'SMGSERASE PASTEBOARD=- Clear Scre 
GLOBAL ROUTINE SMGSERASE_PASTEBOARD ( P 


3 FUNCTIONAL DESCRIPTION: 


PASTEBOARD. ID) = 


This routine erases the entire pss tgboerd. 
The physical cursor is left at (1,1). 


{ CALLING SEQUENCE: 

ret _status.wic.v = SMGSERASE_PASTEBOARD ( PASTEBOARD_ID.rl.r ) 
: { FORMAL PARAMETERS: 

PASTEBOARD_ID.rl.r The id of the PASTEBOARD which is to be cleared. 
IMPLICIT INPUTS: 

None 
IMPLICIT OUTPUTS: 

None 
{| COMPLETION STATUS: 

SSs$ et Normal successful completion 

SROSCINVPAC TS. Ironia eee ebeatstiaett 
i SIDE EFFECTS: 


LOCAL 
PBCB : REF SPBCB_DECL; ! Address of pas.ieboard control block. 
SSMGSVAL IDATE_ARGCOUNT(1,1); 
'¢ 
x Isolate pasteboard control block. 
SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); ! Get address of PBCB 
RETURN (SMGSSERASE_PASTEBOARD (.PBCB)); 
END; ! routine SMGSERASE_PASTEBOARD 


-TITLE SMGSSMINIMUM_UPDATE SMGSSMINIMUM ah ee - Minima 
um update calculatio 
-IDENT \1-046\ 


_o 


SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculati b-sanet 5 AX-11 Bliss-32 V4.0-74 
iebee SMGSERASE "PASTEBOARD= Clear Screen oe : deta19be #3; 38: f SMGRTL BUGSRC SHGAINUPD. 832;1 


-PSECT _SMGSDATA,NOEXE, PIC,2 
00000000 00000 FIRST_TIME_FLAG: 
. - LONG 


T GIN 
“EXTAN SRESSOUTPOT RENIBAC CUDDATE 
TEXT tt WRONUMARG 


»PSECT ie ieatl SHR, PIC,2 


0000 00000 sENTRY SMGSERASE_PASTEBOARD, Save nothing 
nn a a a 
50 00000000G 8&F B? Bebe pre #SMGS_WRONUMARG, RO 
50 04 a 09 SoU 1$ mgt @PASTEBOARD_ID, RO 
000000006 00 3 »} 0013 vaya RO. PBD_L_COUNT 

08 000000006 00 50 £0 Goole BBS RO, PBD_V_PB_AVAIL 
50 00000000G 8&F 9 B00 : 2s: move ashcs. IRVPAS— 1D, KO > 
50 0000000060040 00 OO002E 3$: MOVL PBD_A_PBCBCRO), PBCB 

50 DD 000 PUSHL es 
0000v CF 01 FB 000 CALLS #1, SMGSSERASE_PASTEBOARD 
04 00030 RET 


; Routine Size: 62 bytes, Routine Base: _SMGSCODE + 0000 
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3 
UN UPDATE = Minimum update calculetio $-Jan-1985 21:56:25 


ZSBTTL ‘S peenase PASTEBOARD- Clear Screen’ 
GLOBAL ROUTINE SMGSSERASE_PASTEBOARD ( PB<B : 


FUNCTIONAL DESCRIPTION: 


4 
a 


S 


REF SPBCB_DECL ) = 


This four ine erases pe entire pes tgboord. 
The physical cursor is left at (1,1). 


‘ 

CALLING SEQUENCE: 

ret_status.wic.v = SMGSSERASE_PASTEBOARD ( PBCB.rab.r) 
FORMAL PARAMETERS: 

PBCB.rab.r Address of pasteboard control block 
IMPLICIT INPUTS: 

None 

IMPLICIT OUTPUTS: 

: None 

COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 

SIDE EFFECTS: 

NONE 


“2 


74 
UGS! /JSMGMINUPD.B32; 1 


SARSSAIN IRR _UP SMGSSMINIMUM_UPDATE - Minimum update calculatio g-Jan-1988 $3:36:43 ene OF lees Achent 


SMGSSERASE _PASTEBOARD= Clear Screen SMGRTL .BUGSRC -832;1 
BEGIN 
§ LOCAL 


STATUS, 
wCB : REF SWCB_DECL; ! Address of window control block. 


wa 


be 
g Flush out our buffers. 


Se 


STATUS=SMGSSFLUSH BUFFERS. pace) : 
IF NOT .STATUS THEN SIGNAL(.STATUS); 


'¢ 
: Home the cursor. (erase_whole_ display doesn't necessarily do that). 


SSMGSGET TERN pPATA (HOME) 
STATUS=OOTPUTT.PBCB,. -PBCALPBCB_L CAP_LENGTH),.PBCBLPBCB_A_CAP_BUFFER]); 
IF NOT STATUS THEN RETURN eSTRT Os; 


DADA AAD AAI E BE 
DONO VEWN $0 ODNOAMN EWN OODNOUE WO 


'¢ 
‘ Physically clear the screen with an escape sequence. 


SSMGSGET_TERM_DATA(ERASE _WHOLE_DISPLAY); 
te 


i Make sure it happens iamediately by calling OUTPUT rather than SMGSSOUTPUT. 
; _This way it won't get buffered. 


PAT USoOUTONTy. PBCB, .PBCBCPBCB_L CAP_LENGTHS, .PBCBCPBCB_A_CAP_BUFFER]); 
IF NOT .STATUS THEN RETURN STAT Os; 


MENS CONOUF WN O SCONOUFS WHO 


'e 
Set the screen buffers to all blanks. 


SSS O SSE E TEETER CRORE OTT EDDIE DESISIILS 


See Se Se Oe Se Se Se Se Se Ge Ge Se Se Ge Se SH SH Ss SHH Ge Ge SHH Se Ge SESH Ge Se Se Se SHEE Ss Os CH SHS Oe OHSS Ss Oe Oe Oe Se Oe Sees Se Ss Ss Bee es 


0 =.PBCB(PBCB_A_wWCB); 

1 ef FILL (ZC oben WCB_L_BUFSIZE),.WCBCWCB_A_TEXT_BUF J); 

; cae a ran wCBCWCB-L-BUFSIZE), .WCBLWCB-A-SCR_TEXT BUF) 
CHSF FALL . WCB uCB-L~BUr SIZE}. . >. WCBLWCB-A-ATTR_BUF J); 

4 CHSFILL( -wCBCWCB-L BUF SIZE WCB"A"SCR_ATTR_BUF}) 

5 F .WCBCWCB_A_CHAR_SET-BOF) NEQ 

6 THE 

8 CS? ILL (O, .wCBCWCB L_BUFSIZE),.WCBCWCB_A_CHAR_SET_ BUF )) 

0 

1 IF .WCBCWCB_A_SCR_CHAR_SET_BUF] NEO 0 

4 oa IN 

4 CHF ILL (O, .MCBLWCB_L_BUFSIZED, .WCBCUCB_A_SCR_CHAR_SET_ BUF); 

s J 


-_—oy 


n 3 


SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE - Minimum update calculatio 99-Jan-1985 21:56: AX-11 Bliss-32 V4.0-742 P 17 
a ths SMGSSERASE_PASTEBOARD=- Clear screen et i $3:28:%3 YONGRTL BUERCTSMGAG NOPD .B32;1 — (6) 
; 397 7 te 3 
3 334 34 The physical cursor moves to (1,1). : 
; 400 0 3 
3; 401 1 WCBCWCB_W_CURR_CUR ROWI=1: 3 
; 40 ¢ WCBCWCB-W-OLD_CUR_ROW) =1; 3 
: 40 WCBCWCB-W-CURR_CUR_COLJ=1; : 
3 $38 : WCBCWCB WwW OLD_CuUR_COLJ =1; : 
: 406 0666 ‘6 : 
; ret The Line characteristics get set back to 0. : 
: 409 Oee9 ; 
; 410 0670 CHSFILL(O,.WCBLWCB_W_NO_ROWS]+1, .WCBCWCB_A_LINE_CHARJ); : 
; $1 067) CHSFILL(O, .WCBLWCB W_NO_ROWSJ+1, .WCBCWCB_A_SCR_CINE_CHAR)); : 
; a1 re RETURN SS$_NORMAL 3 
3; 416 0674 F 
; 415 0675 END; ! routine SMGSSERASE_PASTEBOARD : 
sEXTRN SMGSGET_TERM_DATA : 
01FC 00000 -ENTRY SMGSSERASE_PASTEBOARD, Save R2,R3,R4,R5,R6,-; 0569 : 
58 000000006 00 ROVAR SMGSGET_TERM_DATA, R8 : ; 
5 10 SUBL #16, SP 3 : 
5 04 A MOVL CB, R2 > 0611 : 
5 PUSHL 3 3 
0000v cf CALLS #1, SMGS$SFLUSH_BUFFER : 3 
6 0 MOVL RO, STATUS 3 : 
09 5 BLBS STATUS, 1 : 0612 : 
6 PUSH Tus 3 ; 
000000006 01 CALLS #1, LIBSSIGNAL 5 3 
108 «¢ MOV 364K », R : 0618 
5 OFC C MOV g(r », R : 
6 TSTL ) : 
4 BNEQ 2s 3 
33 CLRL (R3) 3 
1 BRB 3$ 3 
AE CLAL INPUT_ARGS 3 
6 A PUSHAB seul ARGS : 
0104 f PUSHL 0(R2) : 
PUSHL 3 
9100 f PUSHAB 2 $(R2) : 
10 AE pe F MOVZWL #476, 16(SP) ; 
1 AF PUSHAB 16(SP) : 
PUSHL R 3 
8 CALLS #6 SAGSGET_TERM_OATA : 
A BLBC TAtUs i 
4 0106 ~«¢ MOVAB 260(R25, R4 : 9619 
4 PUSHL (R4) 3 
PUSHL (R3) 3 
PUSHL R 3 
0000v cf CALLS #3, OUTPUT $ 
6 VL RO, STATUS 3 


oo? steaiaiat el 
1-046 


57 
$7 
$7 
57 
57 
$7 


$7 
57 


; Routine Size: 


$3838 


271 bytes. 


3 


mm BS SRST as mm 


Routine Base: 


SMGSSMINIMUM_ UPDATE - Minimum ate caiculatio 
SMCSSERASE PRSTEBOARD- Clear Screen “ 


SOUERR 


noo 
mw 


~o 
ww 


~ 
oO 


SEASS 


oO 


2c 


bs 


oOo 
SSSSSNESISSLSESSLESSSSSSESER SSSONAFSEA 


_SMGSCODE + O03€ 


ARN RSSRSSSeSSSSasS2LA8SSLF—“FAFS 
$=t=3=t=3-t-3-t- > 2S 


95 S$: 
4: 68: 


$2 


108: 


118: 


Bo seeclOHS 2:35:25 


STATUS, 7% 
a 


#¢. SMGSGET_TERM_DATA 
STATUS, 1187 
(R4, 


(R3) 


i. suru 


STATUS: RO 


baticg) #32, R7, a8(wca) 
#0, (SP), #32, R7, a20(wCB) 
#0, (SP), #0, R7, a2(wce) 
#0, (SP), #0, R7, @24(WCB) 
16(wCB) 

#0, (SP), #0, R7, @16(WCB) 
8(wCe) 

#0, (SP), #0, R7, a28(wCB) 


#655 ?. (wCe) 
#65537 (wCB) 
2(wCB). 

R? 


#0, (SP), #0, R7, @64(UCB) 
#0, (SP), #0, R7, Q8(wCB) 
#1, RO 


AX-11 Bliss- 4.0-762 
SMGRTL .BUGSRC SRGHINUPD . 832;1 
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PARP PRINIUA UP SMGSSMINIMUM UPDATE - Minimum ate calculatio 99-Jan-1985 73:36:43 ot Bliss-32 v4.0-742 
SMGSFLUSH_BUFFER = Flush all buffered output to 2-0ct-19 2:58: SMGRTL .BUGSRC JSMGRINUPD .832; 1 


TSBITL oti tn FFER = Flush all buffered output to terminal’ 
GLOBAL ROUTINE SMGSFLUSH_BUFFER ( 
; PASTEBOARD_ID 
= 


t 
ee 


NOU WTO 0O~ 


¢ 
FUNCTIONAL DESCRIPTION: 
This routine causes all output which has been buffered up but 
mot yet sent to the termina to be output at once. 
It does not matter if our caller is also buffering output. 
When a user requests a flush, we FLUSH. And NOW. 
CALLING SEQUENCE: 
ret_status.wic.v = SMGSFLUSH BUFFER ( PASTEBOARD_ID.ri.r ) 
FORMAL PARAMETERS: 


PASTEBOARE _ID.ri.r The id of the PASTEBOARD for which the 
flushing action is te take place. 


IMPLICIT INPUTS: 


| th nh ae ee ee ae ee eh ee ee ae ae ot eet ee et oe nt od od 


SEGFESFUNS 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: 
: 
: 
: 
: 
; 
i 
i 
i 
i 
: 
: 
i 
i 
i 
i 
i 
i 
i 
i 


OO elt lt eel eel el eel el lt ls lt cells el ca cll calls ls allt lt elt alls ll cells el ls lt calls ll lt lls lls seal alls ils calle sally 


44 701 IMPLICIT OUTPUTS: 

44 108 

444 70 None 

445 704 

666 3783 COMPLETION STATUS: 

44 a 

448 070 SS$_NORMAL Normal successful completion 
449 re SMGS_WRONUMARG erene number of arguments. 
$39 NO SMGS_INVPAS_iD Invalid pasteboard id. 

45 orth ' SIDE EFFECTS: 

45 at ‘ 

454 37 $ NONE 

455 714 lee 


& 


; Routine Size: 49 bytes, Routine Base: _SMGSCODE + 014D 


SMGSSAINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum ate calculatio ~por= 138? $3:26:93 AX-11 bises3s V4 .0-742 3 
i SMGSFLUSH_BUFFER = Flush all buffered output to 2-0ct-19 :58: SMGRTL .BUGSRC JSMGMINUPD .832;1 1 
: i 215 3 BEGIN 
: <3 at LOCAL 
; 661 8 PBCB; ' Address of associated ; 
3 rhe 720 ! pasteboard control block. 3 
Bo Be. 7 
> 665 7 4 i Isolate pasteboard control block and call inner routine to do the ; 
3 re ¢ | 7246 ' work. é 
3 a2 f 5 !- : 
: ces , 5 SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); ! Get address of PBCB ; 
; 471 rs RETURN SMGSSFLUSH_BUFFER(.PBCB) 
: 47 731 1 END; ! Routine SMGSFLUSH_BUFFER : 
0000 .ENTRY SMGSFLUSH BUFFER, Save nothing ; 

50 % Bt D MOVL —@PASTEBOARD_1D, RO : 

000000006 00 50 CML RO, PBD_L_COUNT ; 

08 000000006 50 BBS RO, PBD_V_PB_AVAIL, 2$ F 

0 000000006 &F ROVL #SMGS_IRVPAS“1D, R6 ; 

50 0000000060049 MOVL § PBD_A_PBCBCRO), PBCB : 

5 PUSHL c6 5 

0000v CF 01 CALLS #1, SMGSSFLUSH_BUFFER ; 


SSAMINIMUR_UP SMGSSMINIMUM_UPDATE - Minimum ate calculatio oaaeine 5 21:56: AX-11 Bliss-3 742 e 1 
rote SMGSSCHECK_MBWR_SCROLL = Check to see if use of 2-0ct-1984 93:28:93 SMGRTL. setae ishcniwors. 832;1 aoe 3 ; 
475 7 ZSBTTL ‘SMGSSCHECK_HDWR SCROLL - Check to see if use of hardware scroll will hel 
47 7 § GLOBAL ROUTINE SMGSSCHECK_HDWR_SCROLL ¥ 
47 7 ws : REF SPBCB_DECL 
$78 735 = 
4 7 'ee 
: ° 4 FUNCTIONAL DESCRIPTION: 
4 § 7 § This routine checks to see if the WCB text buffer hes changed 
6 740 in such @ way that we can optimize the output b ng 
: : oe) hardware scrolling ee and letting the Seateat scroll. 
4 “§ Screen Text ext 
4 74 Buffer Better 
4 745 
4 9 74 eevoeece ean ese co ome & gma woaae enomanon > 
490 74 H : ' : 
491 74 : H H ‘ H 
69 74 ! N ===>} ' H | <=" N 
49 8? 0 : : : ' 
$38 751 . ; : ; : 
: o-=->} H ; (eee w 
4 7 : } ; : : 
49 754 : H : ' 
498 7 é $wmenmeessceasceaeay Geeeeeceoewooecon} 
499 8588 
75 If information in the PBCB tells us that Lines N through M 


I 


of the text buffer have been changed, we check to see if 


Line N- of Text Buffer = Line N+1 of Screen Text Buf. 
Line N+1 of Text Buffer = Line N¢2 of Screen Text Buf. 


we 
VERRU LS Sane nrunr—-oCSeVeAR aves 


Line M-1 of Text Buffer = Line M of Screen Text Buf. 


This can be done with a single compare instruction since the 
areas are continguous. 


If these areas are the same, the probability ts very high that 
the text outer was changed b ¥ seres ting. line N 
ere by one i ne and jaserti ng a new Line (M) ~. he betes: 

we ff ermine that this is the case, we use the hardware to 
accomplish the scroll for us, ate the screer text buffer to 
re ot ne ef go fe sere ‘ ene th en SP the 

* e c to c minor erences, @.g., 
ae a re a me ° 


in an analogous fashion, we also check to see if the change 
represents a downscroll et one Line. 


This routine is cette only when it has oiroody been esteb| ished 
that we are dealing with a dev ge thet has settable scrolling 
regions and at least 2 consecutive Lines have changed. 


' CALLING SEQUENCE: 
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SSMINIMUM_UP SMGSSMINIMUM_ UPDATE - Minimum update caliculatio 99-Jan-1985 21:56: AX-11 Bliss-32 v4.0-742 
; 6 “  -SMGSSCHECK_HBWR_SCROLL - Check to see 4 use of b= Jan-1985 $3:28°% SMGRTL.BUGSR Sac isncn MGMINUPD .B832;1 
: r } ret_status.wic.v = SMGSSCHECK_HDWR SCROLL ( PBCB.rl.r) 
: 4 i FORMAL PARAMETERS: 
3 i | PACB.rl.r Address of a Pasteboard Control Block 
3 , 5 IMPLICIT INPUTS: 
: 540 797 11 NONE 
3 41 7 1/ 
3 4 1! IMPLICIT OUTPUTS: 
; 54 1! 
3 44 1/ NONE 
; 545 § 1: 
: re ! COMPLETION STATUS: 
: $8 5 } SS$_NORMAL Normal Successful Completion 
: 550 1 | SIDE EFFECTS: 
3 1 08 1: 
3 § 0809 1: NONE 
;. 0810 1 i- 


SRP IAIN IRR? 


PAAAAMAMVIW 


o~ 
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Ca 


SRERES Sao NN SSS USE 


w28S 


& 
TE = Mini -Jan- 56: - - . 
SRebsrummen urPaneac Minimum undece cetcutatig SJen-1aes 20:56:95 SHGRTLBUGSRCSSMOATNUPS.032;1  "*9° 195 


BEGIN 
LOCAL 


5069 00 GD 09 G2 G9 OGD ONS 


STATUS, ! Status of subroutine calls 
WCB : REF SWCB_DECL. pféress of associated Window Control 
! Bloc 


—> ss st 


PFU "OOOO UN FS UP "OO DOVOUS Uy 


TB, ! Index of Ist byte in WCB text buffer 
! that may have been changed. 


! Index into WCB Screen Text buffer 
' of start ng byte position which 

! should be the same if changes were 
! made via a single-Line scroll 

! operation. 


WIDTH, : Longwere ore of 
! .WCB CWCB_ W_NO_COLSJ == extracted to 
! yield better code. 


BIC, ! Number of bytes that need to be 
' compared. 


ics : VECTOR C,BYTE), ! Address of Line 
' characteristics vec 
! with WCB CWCB_A_SCR 


: a § or bottom Line of scrolling region. 
! =.LCR if scrolling up 
! =.FCR if scrolling down 


! First changed row = .PBCB (PBCB_W_FIRST_CHANGED ROW) 
' Last changed row = .PBCB [PBCB_W"LAST_CHANGED_ROw) 
! Extracting the fields above gives better code 


! Delta number of Lines (-1) that changed, = .LCR - .FCR 


to 
T 


r assoc 
EXT_BUF J. 


SEeee 
, a 


-—-n 


© 


K_HBWR_SCROLL = Check to see if use of 2-Oct-1 


WCB = .PBCB CPBCB_A_wCB); 


¢ 
: Extract following fields for better code generation. 


WIDTH = .WCB CWCB_W_NO_COLS); 

FCR = .PBCB FPBCB~u- FIRST CHANGED ROW]; 

LCR = .PBCB CPBCB"W-LAST_CHANGED_ROw]); 

DL = .LCR = .FCR; ! Known to be 1 or greater 


'¢ 
! Calc. the starting byte position in the text buffer that could have 
changed. 


Bee SS SSS SS SS SSSS 


; 610 

: bie : TB = (.FCR = 1) © .WIDTH; 

: 61 e rr 

: 616 B6S ! Calc. the corresponcing byte position in the screen text buffer that 
; 615 : ! should match if Chonge was orev ht about by an upward scroll of one 
3 oi8 : ! Line == a common phenomena. This will be one Line further down in the 
: oi ; : buffer. 

; g5 5 ; 

: 620 : STS = .1B + .WIDTH; 

‘ 6 1 : '¢ 

: 6 H : i Cale. how many byte positions in the text buffer should match the 

: e : : H given slot in the screen text buffer. 

: 6 $ + 7 

: 629 7. 1+ 

3; 6 BE ! Check to see if an upscroll or downscroll of one Line accounts for 
: ° 1 BRE the differences between the text and screen buffers. 

; 6 § B88 3 IF (CHSEQL ( .BTC, .WwCB CWCB_A_TEXT BUF) + .18 

3 6 ‘ ge pate -BTC, .WCB CWCBTA-SCR_TEXT_BUF] + .STB)) 

: 6 a9 SR = .LCR ! WiLL be upscrollin 

3 e $44 ELSE - . 

: B9 BEGIN ! Check for Gounscrol ling 

; 6 B94 TB = .FCR *® .WIDTH ; ! Line Nel 

; 640 B95 STB = .18 - .WIDTH ; ! Line N 

3 641 896 IF (CHSEQL ( .BTC, .wCB CWCB_A_TEXT BUF) + 18 

; be B9 ieee -BTC, .WCB CWCB"A-SCR_TEXT_BUF) + .STB)) 

; ee 0899 si se™ = .FCR ! WiLL be downscrolling 

; | 09 RETURN (SS$_NORMAL) ; ! Quit -- neither upscroll or downscroll 
3 o DS ! of 1 Line will do it. 

3 8 : END; ! Check for downscrolling 

: 64 

; 650 '¢ 
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= 


HBWR_SCROLL = Check to see use 0 SMGRTL .BUGSRC JSMGMINUPD .832; 1 (11) 
| ive we reach here. we have a candidate for scrolling. 
heck to see if physica cro tt ng region on the terminal matches 

the area we want ott | not, set it to the desired region 


to pcre 
and record where we left 


IF .FCR ae -PBCB [PBCB_W_TOP_ 
«LCR 8. LINE 


SCROLL 

Q .PBCB LPBCB-W"BOT- SCROLL 

BEGIN ! Not where want 

if NOT (STATUS = SMG FORCE. 
RETURN .STATUS; 


END; ! Not where we want it, reset 


it 
SCROLL *REG ( .PBCB, .FCR, .LCR)) 


14 
| aoe physical cursor to either top or bottom Line of scroll region. 


SMGSSFIND_MIN_CURSOR_POS ( .PBCB 


-WCB LWCB_W_OLD_CUR_ROW), ! Current 
HM WCB-W-OLD-CUR-COLJ, ! Current 

' Desired 
i;e ' Desired 


'¢ 
| mpeete screen image with respect to current cursor positioning. 


SR; 
CB-W"OLD~CUR-COL) = =i; 


WCB [WCB_W_OLD_CUR_ROW 
wCB i 
WCB"W~CURR-CUR-COL) = ce 


te 

i Set up base of Line characteristics vector for what is currenthy 

| on the screen. This vector will have to have its entries shuffled 
up or down. 


LCS = .WCB CWCB_A_SCR_LINE_CHAR]; 


'¢ 

i athe a ktnowtood into the bottoa ne of the scrolling region or 

i Coun sero’ ~ the top | of the scrolling reg on, 

i nate ng cur current | through # to scrol either d 

! ine S not t , seet solut on Writin a > will 
: cone. a blank be written with vide yy ey 
' ‘normal"’. 1 {tne should really be 

! Hf ee : deo attributes in all spew cary 

i that te s too long to compute. We c onis awith 
: T esrael anks one let the res 

! 

' 


streigten it out ager. ey en though the ch, wit get 


written twice and will Te} cher at low baud rates. 


IF .SR EQL .LCR 


int 


3333 


at a He a at a 


ViFWUN $9 OONAVUE UN HOODOO L wT 


Fy i ne ee, n,n, i ee ee 


rn 
SMCSSCHECK HOUR SCROLL = Check pon ee gf ceatie $-Jan-1985 3:88:43 | Honcat beta 
MMENQEGIN ! Upscroll action 


eed een ad ee a Oe et et tt 


DSOSOOGOGOS 


ooono 


33333 wr—o0o 


DO a A a a Ht ht 


SN 


w iN OOO OUI 


ELSE 


SMINIMUM_UP SMGSSMINIMUM_UPDAT 


i _upscrolt by outputting a <LF> in Last Line of scrolling region. 
SSMGSGET_TERM_DATA(SCROLL_ FORWARD); 
e. ,POCBCPECB_L_CAP_LENGTAJ EQL 
RETURN 1; 
STATUS = SMGSSOUTPUT (.PBCB, .PB 
IF NOT .STATUS THEN RETURN .STA 
1 


STATUS = SMGSSOUTPUT (.PBCB, 
IF NOT .STATUS THEN RETURN .STAT 


'¢ 
! Slide screen Line characteristics vector up by one to correspond 
to Lines that got scrolled up. 


CHSMOVE ( .DL, LCS C.FCR+1}, LCS C.FCRI); 


LCSC.LCRI=0; 
END ! Upscroltl action 
BEGIN ! Downscroll action 


+ 
: Downscroll by emitting a reverse index or a down-scro!’ escape sequence. 


SSMGSGET_TERM_DATA(REVERSE_INDEX); 
ech ero eC L_CAP_LENGTHI EQL 0 


EGIN 
SSRGSGET TERM_DATA(SCROLL_ REVERSE ,1> 
IF eh coc POCB_L_CAP_LENGTAJ EQL 
RETURN 1; 
ND: 


STATUS = SMGSSOUTPUT (.PBCB, -@CB Pece 1 CAP LENGTHY 
.PBCBCPBCB-A_CAP-BUFFERJS; 

IF NOT .STATUS THEN RETURP .STATUS; 

¢ 

! Slide screen Line c’ .racteristics vector down by one to correspond 

to Lines that got <crolled down. 


CHSMOVE ( .DL, LC’ C.FCRJ, LCS C.FCR1)); 
LCSC.FCRI=0; 


END; ' gownscroll action 


V4.0-742 
MGMINUPD .B32;1 
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AUR _UPDAT 
¥ CK WBWR_SC 


'¢ 


Update screen buffer to reflect what scrolling operation should have 
i. done to the screen. 


' Text pet 
CHSMOVE ( 


foi 


“OCB 
- WCB 


: Atte ibytes | that go = Ais vith text that scrolled 


WCB_A_SCR_ATTR_BUF 
WCB-A_SCR_ATTR_BUF 


Line introduced b 


CHSMOVE ( 


ace" 
- WCB 


( 2¢ 


See note above. 
CHSFILL ( 0, 
WIDTH, No. of 

“WCB cuce_ A_SCR_ATTR_BUF] + (.SR -i) * ,WIDTH); 


RETURN SSS_NORMAL 


7€ 
58 
7€ 


14 B844 


58 


4 fe 


04 AE 
54 
08 8848 
57 
56 


Minimum 
= Check 


“2 


RCISMGMINUPD.B32; 1 


aft’ pangegec le move screen text buffer by 1 Line 


y scroll aaa 


' 
WIDTH, i 
-WCB CWCB_A_SCR_TEXT_BUF] + (.SR -i) 


' Attributes for blank Line introduced by scroll 
i "NOTE: This Line of code ‘s related. 


! Routine SMGSSCHECK_HDWR_SCROLL 


OA OO17E P.AAA: 


. wr =pf fol. Save R2,R3,R4,R5,- 


STB, R4 
ere. @8(WCB)C1B), a20(WCB)CR4) 
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WIDTH, FCR, TB 


SHGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum updat 
inbee SMGSSCHECK HOUR. SCROLL = Check to see 


04 AE ° 
14 BB44 08 8848 


%0 


10 


0000v CF 
14 Of 
0 


01 A649 


58 


wate 


+>_+ 


MMNOBO OOO VTS = SH VODSS MV “SOS OOBDONNSS DOBSSSWOWS 
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7 oa 8 SS SSS SSS 


82 f2:58:15 — UskantuSeussactsnoAtwurd .032;1 


w TH 18, STB 
TC, a8(WCB)CTB), a20<wcB) CRs] 


FCR, sf 

« #16, 244(R10), FCR 
4% #16, 246(R10), LCR 
LCR 
FCR 
R10 
i SRESOEORCE SCROLL REG 


RO, STA 
STATUS, 3 
rT 


R 
BScuc. =(SP) 
SocwcB), ~(SP) 
$$F IND_MIN_CURSOR_POS 
(WCB) 


ay. SNGSSOUTPUT 

STATUS. ¥ 

DL, 1(FCRICLCS], (FCRCLCS) 
RCLCS) 

smi 
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(R53) 


one 
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SARS PRIM LAUR UP SMGSSMINI 
6 SMGSSCHECK 


01 A649 
14 8848 
18 8848 
OC A 20 
oc AE 00 


; Routine Size: 430 by es, 


UPDATE - Min 
WR_SCROLL - 
18 «OA 

1¢ ry: 

20 AE 

000000006 

8? 

mf 

0 

6649 

56 

14 BB46 

56 

18 8846 

57 

6E 

6E 

50 


Routine Base: 


imum 
Check 


a 4 
ate calculati “Jan 
“to see i use of set 
3 D011F 
3 3 8 
ue 
A 001 
1 pO OOig7 118: 
1 BO 901 
18 AE 9F OO12F 
0106 CA DD 001 
2 0 001 
1 Sf f 901 
2 Ff C 001 
Ag 9F 0014 
DD 0014 
fF 0014 
E 0014 \¢s: 
g ? Bt 158: 
0106 CA Dd 00155 148: 
2 00 001 
A DO 001 
a a8 
14 AE 4 501 
14 AE the 158: 
08 ae i Doge 168: 
664 001 7 
04 AE 00 0017A 178: 
6E 001 7E 
06 AE BO Q0t 
96 001 
07 00192 
OC AE C4 00196 
14 B84 ' 50198 
09 2c NOTA 
“3 ar 0 BOT AA 18$ 
D0 : 
Be 101 AD 158; 
_SMGSCODE + 017F 


a 


5 21:56: AX-11 Bliss-32 v4.0-742 
382 73:38:83 SNGRTL BUGERE SSMCAG MOPS .832:1 

TSTL (R3) 

BNEG 3s ‘11 

CLRL 3s (R2) 

Bea 13 

MOVL #1, INPUT_ARGS 

MOVL #1, INPUT“ARGS*4 

PUSHAB INPU: ARGS 

PUSHL O<RTO) 

PUSHL 

PUSHAB 236(R19) 

mOVZWL # 2(SP) 

PUSHAB 32(SP) 

PUSHL R 

CALLS 4&6 SNGSGET_TERM_DATA 

BLBC =. STATUS, 

TSTL «= (R2) 

BEQL «=s«éa18 

PUSHL 260(R10) 

PUSHL (R2) 

PUSHL 1 

CALLS 3, SMGS$SOUTPUT 

MOVL RO. STATUS 

BLBS STATUS, 6s 

ROVL STATUS, R 

movcs DL spceptecs3, 1(CFCRICLCSI 

CLRB Ess CER CLS 

MOVL STB, Rg 

MOVCS BTC. a20(wCB)(R6), a20(wcB) (TB) 

MOVL STB, Rg 

moves BIC, a24(wCB)(R6), a24(wcB)( TB) 

ULL WIDTH, R7 

movcS #0, (SP), #32, WIDTH, a@2C(wCB)(R7) 

MOVCS #0, (SP), #0, WIDTH, a24(wCB)(R7] 

MOVL #1, RO 

RET 


—uy 


a 


4 

SMGSSMINIMU’_UP SMGSSMINIMUM UPDATE = Minimum ate calculatio B-danet 5 21:56: AX-11 Bliss-32 V4.0-742 P 4 | 
1 6 SMGSSFLUSH_BOFFER - Flush all ~ fered output t ree Fi $3:3$%3 SMGRTL BUGERCTSMGAY MIPS. B32: a0e 43} 

797 19 1 ZSBTTL 'SMGSSFLUSH BUFFER = Flush all buffered output to terminal’ 

£38 i § GLOBAL ROUTINE SMGSSFLUSH_BUFFER ( P_PBCB ) = 

‘s 6 : FUNCTIONAL DESCRIPTION: 

4 8 § This routine causes all qutput which has been buffered up but 

B7 be not yet sent to the terminal, to be output at once. 

05 3g CALLING SEQUENCE: 


ret_status.wic.v = SMGSSFLUSH_BUFFER ( P_PBCB.rab.r ) 
FORMAL PARAMETERS: 


wr 


H 1 

H 1 

; 1 1! 

; 1 1! 

3 1 1! 

; 1 1} 

; 1 ,s 

3 1 ,! 

H 1 , | 

: 6] 1 7% 

3 1 1} 

: "3 1 1! 

: 1 1! 

; 810 1064 1! 

; 8611 1065 1! P_PBCB.rab.r The pasteboard control block address for which 
: aig 1987 ; the flushing action is to take place. 

; 14 1 : 1 ! IMPLICIT INPUTS: 

; 815 196 1! 

; 1 8 oi! PBCB Bae OUT OUT BUFL EN} number of characters in buffer 
; aif 197) ! : PBCB(PBCB_W_OUTPUT_BUFFER address of buffer 

; $3 1078 ; IMPLICIT OUTPUTS: 

; . 1 28 ; PBCBCPBCB_W_OUTPUT_BUFLEN) set to 0 (indicating buffer empty) 
; § 1977 : COMPLETION STATUS: 

3 5 1079 1! SS$_NORMAL Normal successful completion 

3 $ 1930 ; SS$_xyz -_ errors from SMGSSOUTPUT. 

: 8 1086 1 ! SIDE EFFECTS: 

; 829 10 1! 

; ; 0 1084 1! NONE 

3 31 1085 1 !-- 


SSAINIMUM_UP SMGSSMINIMUM_UPDATE - Minimum updete yee B-san-19 5 21:56: 
a hs SMGSSFLUSH_BOFFER = Flush all buffered output ¢t ~32tn 1382 $3 :38:%3 


SAS LA SAA Alara eprperercnnmans f era 


; Routine Size: 


BEGIN 
BIND 
1 Our BuF = SPBCEE ace a ourbut Bort ER} 
: OUTLEN = PBCBCPBCB"W~OUTPUT~BUFLEN ; 
LOCAL 
034 STATUS; 
ae 


Do nothing if the buffer is empty. 


If .OUTLEN EQL °. 
THEN 


RETURN SSS$_NORMAL ; 


QL SRESLE 


te 
' Output the buffer now 
' Save time by calli 


{SmGSSOUTPUT would try to buffer the text up anyhow.) 


Ds guar te ag 00 Fe oe OUTBUF ); 
F NOT .STATUS THEN RETURN .STATUS; 


te 
Note that the buffer is now empty. 


et lt el el lt lt allt cel lls sells ell cll els ls lls lt lls alt ls ll ls cls calls lls cally ls cally il ls calle all ay 


At et lt lt elt elt lt elt elt lt elt lls elt alt el lls call cll lls calle ills lls 


a ee eee 


OUTLEN=0; 
RETURN SS$_NORMAL 
1 END; ! Routine SMGSSFLUSH_BUFFER 
ENTRY 
$2 96 ROVL 
2 TST 
BE QL 
$s PUSHL 
7€ MOV 7 WL 
PUSHL 
0000v ff CALLS 
B.BC 
72 CL RY 
50 ROVL 
RET 
35 bytes. Routine Base: _SMGSCODE + 032d 


! Pasteboard control block 
: VECTOR 


ng OUTPUT directly rather than S™GSSOUTPUT. 


prpece, AC” BUFFER, Save R2 


AX-11 Biiss-32 v4.0-74 
SMGRTL .BUGSRC SMGAINUPD 832;1 


1 


11 


ot se 


st st ee 


NOan 


| 
| 
3 
| 
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SAGSSRINIUM UP SMGSSRINIMUM UPD 
1-046 SMGSSFLUSH uit 


ave = Minimum update caiculatio § 3 n-1985 
- Flush all buffered output t 2-0ct-1984 


VAX-11 Bliss-32 v4.0-762 Page 26. 
CSMGRTL..BUGSRC ISMGMINUPD B32; 1 a) 


~w 
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SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum ate calculatio Bsa 5 21:56: AX-11 Bliss-32 V4.0-74 P 7 
1-046 SMGSS$FORCE_SCROLL_REG = Force physical scrollin mets 1 #3:88:48 SMGRTL. Sac ISMGAINUPD .B32; 1 att y 
T 


I 
C 
TSBTTL ‘SMGSSFORCE SCRE REG = Force physical scrolling regions’ 
GLOBAL ROUTINE SMGSSFORCE-SCROLL_REG ( 
PBCB : REF SPBCB_DECL, 


TOP_LINE, 
, BOTILINE 
= 


—+> 1s 


‘ee 


FUNCTIONAL DESCRIPTION: 


i This routine performs three actions: 
: a). Construct escape sequence needed to set scroll 


region. 

b). butput this sequence to terminal. 

©). Coeete PBCB to reflect new position of scroll 
region. 


De SOAP UNIO Doe Ore 


The physical cursor is left in first row of scrolling region, 
COLUMN 1. pie. 


i CALLING SEQUENCE: 
ret_status.wic.v = SMGSSFORCE_SCROLL_REG ( 


' FORMAL PARAMETERS: 

PBCB.rab.r Address of Pasteboard Control Block 
TOP_LINE.rl.v Top Line of physical scroll region desired. 
BOT_LINE.ri.v Bottom Line of physica scroll region desired. 
i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

i COMPLETION STATUS: 


SS$_NORMAL Normal successful Comp) et ten 
SS$_xyz errors from SMGSSOUTPUT. 


i SIDE EFFECTS: 
Physical scrolling region changed. 


a2 
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MUM_UPDATE = Minimum update calculatio bsan-19 5 21:56: AX-11 Bliss-32 V4.0-74 p 
CROLL_REG = Force physical scrollin 2-0ct-1984 93:28:93 SNGRTL BUGERETSMGHG NOPD. B32; 1 age 18 


wtb : REF SWCB_DECL, 
STATUS; ! Status of subroutine calls 
wCB=.PBCBCPBCB_A_wWCB); 
le 
Create escape sequence needed into capability buffer. 
rs 


Oo 


SSMGSGET_TERM_DATA(SET_SCROLL_REGION,.TOP_LINE,.BOT_LINE); 


ts 
Output BUFFER. 


IF NOT (STATUS = SMGSSOUTPUT ( .PBCB, .PBCB PBCB_L_CAP_LENGTH) 
.PBCBCPBCB~A~CAP~BUFFERJ)) 

THEN 

RETURN .STATUS; 


t+ 
Record where scrolling region now is. 


BNA ALE WN (OO BNOMN EWN (OOOO FU 
i eh ed ed ot td ed 


RO ER NS So ee ee RS SSSSSPSSSS 30509 L000 LBBBmmmmmmce 
SVS NO OO NIE APU MOD DEAF UO SOO ORR ee ee ES 


LLLL LL ee ypcocccccco CLC ODDO 00 


PBCB [PBCB_W_TOP_SCROLL_LINE] = .TOP_LINE; 
PBCB CPBCBW~BOT~SCROLL~LINE) = .BOT“LINE: 
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949 

950 '¢ 

983 Move the cursor to the first row of the scrolling region, column 1. 
95 , 

Bee SSMGSGET_TERM_DATA(SET_CURSOR_ABS,.TOP_LINE,1); 

328 '¢ 

95 ' Output BUFFER. 

389 re 

960 If _ .PBCBCPBCB_L_CAP_LENG‘H) NEQ 0 

961 THEN BEGIN 

96 IF NOT (STATUS = SMGSSOUTPUT ( cece -PBCBCPBCB_L_CAP_LENGTH], 
96 ie .PBCBCPBCB_A_CAP_BOFFERJY) 
38 RETURN .STATUS; 

367 r 

968 ' Record where the cursor is now. 

353 a 

971 WCBCWCB_W_CURR_CUR_ROW)=.TOP_LINE; 

97¢ wCBCWCB-W~ CURR™ CUR COL J=1; 

97 WCBCWCB-W-OLD_CUR_ROW)=.TOP_LINE; 

974 wCBCWCB-W~OLD~CUR™COLI=1; 

97 END; 

399 
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ETURN SS$_NORMAL 
! Routine SMGSSFORCE_SCROLL_REG 
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SMINIMUM_UPDATE = Minimum update 
E_SCROLL_REG = Force physica 
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8 
4 
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O2se 
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i Rh weet il + ws yy A 
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am 


Soom 


F 5 
iculatio 9-Jan-1 
scrollin 2-Oct-1 


O1FC 00000 


+) 


as 


MFRS SMOMOLOE 


2>SOC¢ 


5S00C¢ 
SOO¢ 


DOC 


SC 
2s 


Se 


Seneca 
365 te SORE 


DOOC 


——s 
oe 
ee 


be $2:58:48 


USnG 


11 Oh teensy 
RTL.BUGSRCJS: 


ENTRY 
MOV SMGSGET_TERM_DATA, RB 
uate no pair 
MOVL PBCB, R2 
MOVL (R25, WCB 
MOVAB G4 (R », R6 
MOVAB 2(RO). R& 
TSTL = (R4) 
BNEQ ~=s«d18 
CLRL —s-« (R6) 
BRB 28 
MOVL #2, INPUT_ARGS 
MOVO = TOP_LINE, ~ INPUT_ARGS+4 
PUS jnPor ARGS 
PUSHL 60(R2) 
PUSHL Rg 
5 2 $<R2) 
MOVZWL #572, 16(SP) 
S 16(SP) 
PUSHL 4 
CALLS #6 SNGSGET_TERM_DATA 
BLBC satu 4 
MOVAB OCR 5, RS 
PUSHL  (R5) 
PUSHL  (R6) 
SHL Re 
CALLS #3, SMGSSOUTPUT 
VL RO, STATUS 
BLBC STATUS, 6$ 
MOVW  TOP_LINE, Z44(R ) 
MOVW  BOT"LINE, 246(Ro) 
TSTL (R&T 
BNEG © 38 
CLARE —s-s«(R6) 
BRB $ 
MOVL #2, INPUT_ 
MOVL § TOP_LINE, ~INPUT_ARGS*4 
MOVL #1, INPUT_ARGS+8 
PUSHAB INPUT_ARGS 
PUSHL (RS) 
PUSHL R 
SHAB 256(R2) 
mMOVZWL #570, 16(SP) 
PUSHAB 16(SP) 
PUSHL  R4 
CALLS #6 SNGSGET_TERM_DATA 
BLBC = STATUS, 
TSTL = (R6) 


V4.0-742 


MGMINUPD .832; 1 


SOCSSFORCE SCROLL REG, Save R2,R3,R4,R5,R6,-; 


Pane 48) 
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SMGSSMINIMUM_UP ote 9 yay ba NIMUM_UPDATE = Minimum update calculatio $- Janet 5 : AX-11 Bliss-3 
1-046 MGSSFORCE_SCROLL_REG = Force eesteel scrollin 2-Oct-1 Fi #) 38:43 SNGRTL BUGERCTSNGAY 
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0000v i 
4 
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2 A 
A 
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; Routine Size: 207 bytes, Routine Base: _SMGSCODE + 0350 


, SMG$SOUTPUT 
v RO, STAT ) 
BLB S are 
STATUS, R 
W N WCB) 
MOV TOP. INE E aie’ cB 


mOVW ne ar + poCwce) 


H 5 
SSMINIMUR_UP SMGSSAINIMUM ATE = Mini ate calculatio 99-Jan-1985 21:56: AX-11 Bliss-32 V4.0-742 Pa 31 | 
rete SMGSSPBCB_EXTT_HANDLER = Exit eae ae tats $3:3$°% YONGRTL BUGERCTSNGAGNUPS.B32;1 9° 18) t 
9 ZSBITL *SMGSSPBCB_EXIT_HANDLER = Exit handler’ 
: ; GLOBAL ROUT INE SRCSSPBCD EXIT HANDLER ( P_REASON, P_PBCB ) = 
5 5 FUNCTIONAL DESCRIPTION: 
9 This routine gets called on image exit once for 
9 each active pasteboard. It flushes the output 
989 on that device. No flush occurs, however, if 
990 49 the CLI forced the exit, as in the user typed 
$33 re. CTRL/Y then EXIT. 
398 6 f device is a terminal, reset the physcial serene region to 
44 ull screen. If the user doesn't request the screen to be cleared, 
$2 then leave the cursor alone (unless the width needs to be reset). 
2 CALLING SEQUENCE: 
4 ret_status.wic.v = SMGSSPBCB_EXIT_HANDLER ( P_REASON.rl.r 
50 P_PBCB.rab.r 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: FORMAL PARAMETERS: 

; P_REASON Address of word that contains gu tt reason. 
Should be PBCBCPBCB_L_EXIT_REASON]. 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


P_PBCB.rab.r The pasteboard control block address for which 
the flushing action is to take place. 


Sseceereccssesese 


IMPLICIT INPUTS: 
contents of PBCB 
IMPLICIT OUTPUTS: 
PBCBCPBCB_W_OUTPUT_BUFLEN) set to 0 (indicating buffer empty) 
COMPLETION STATUS: 
SS$_NORMA!. Normal successful completion 
SIDE EFFECTS: 
NONE 


aaa ee ee ed ed a ed nd ed dd ed 
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SSMINIMUM_UP SMGSSMINIMUM_ UPDATE ge date calculatio b-san-19 5 AX-11 Bliss-3 Pa 2 
eh oP SMCSSPACB EXT? HANDLER © Ente bocater eee roetalobe 2:88:99 — YeMcnt bbe saeishcatnars.e32.1 oe 8 


1 7 BEGIN 
4 BIND 
PBCB = .P_PBCB : SPBCB_DECL; 
¢ LOCAL 


Wr —O0O~ 


STATUS 
WCB : Sher $WCB_DECL; : Address of window control block 


5 
Be EXTERNAL ROUTINE 
88 SMGSCHANGE _PBD_CHARACTERISTICS; 


Se Se Oe es Oe Oe Sees Se Se sees 
a a a 4 et 2 Ls 
uw 


SOCOCOCCoOOooOoOOO 


SeSF 


mt se ss se 4 


ev 


Be Oe Oe Se Oe Se Se Se Ge Se Be Se Se Se Ge Se Se Se Se OH Se Oe Be OH Oe Os Oe OH Se Se Be Oe Oe Be Oe Se Oe Oe te 


SARSSAINIRUA_UP 
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ae ed ed od oe ww wd ss ow wt 
BNAMNE WM" OONOUS wr 


WADA 


1SO0OO 


WARN ISS ESOT ORES. 


Cooooooeceoo 
SSN NN 


S33 


SSSSSSESSSSSS 


ee ee ee ed ce ed ed ee ee ee el ee ee ed ed ee ce 8 ce ed wd ed ee ee ed ee ee ee ee ee ed ee 


SACSEPBCE ERT? RANG - mnie update calculatio besa gann138? ¢}: 26: $3 eel Bliss-3 


SMGSS$PBCB_EX SMGRTL .BUGSRC 


ed cen ee ce ee ee ee ee ee ee ee ed ee ee ee ee el el ee ee el el ce eel el eel ce eel cl ce el cl el eel eh el el ee ee ee ee ee ee aed et et ad 8 


PARIS SSLSEGE ALES 


wr 


Oooo »o 
Oco™N 


Od ad dd 


DEEP EE EE EEE EEE EEE EE & FAI III III III 


we 
14 


HANDLER = Exit t handler 
B = .PBCB CPBCB_A_wCB); 


“Oct-1 


If a scrolling ng is set (other than the full screen), 
then reset it no mace caretye to seve o cursor alone 
even though SET 1 SerotL GR Ufake may mo 

i Note that if we never e establ shed any screiting regions, 

i the. TOP *SCROLL Line wil 


IF -PBCB pete WTOP =SCRO tere tt NEQ 9 
AND (, are pece.w TOP ~SCROLL_LINE) NEQ . 
THEN PBCB_W_BOT_SCROLL_LINEJ NEQ .WCBLWCB_W_NO_ROWS)) 
BEGIN ! Remove scrolling regions 
LOCAL 
FINAL_ROW, ! Tine. ~“*Sor row 
FINAL-COL; ! Ff Final Curses. column 


'¢ 


i Construct escape sequence (pos ae null “¢ not a supporting terminal) 
° 


_to set the hardware scroll region the fu.‘ height of the screen. 


panenen’, fen bientanY Sched. seentn, 
.WCB CWCB_W_NO_ROWS)); 


‘+ 
; Output BUFFER. 


1g POCOCPOCB_L_CAP_LENGTH) NEQ 0 
BEGIN ! Issue the reset 


'¢ 
i Remember where the user left the physical cursor, since 
i. changing scrolling regions might upset this. 


FINAL_ROW=.WCBCWCB_W_CURR_CUR_ROW); 
FINAL~COL=.WCBCWCB-W-CURR-CUR-COLJ; 

STATUS = SAESSOUTPUT (PBCB. .PRCBEPBCB | -f Abb wet) 
IF NOT .STATUS THEN RETURN .STATUS: ~ Af 


i* Move the cursor back to where it wa 
(No need to do this if the screen will be cleared anyhow.) 


IF NOT -PBCBCPBCB V_CLEAR_SCREEN) 
THEN BEGIN PRestorens nal cursor position 


§snoat 


-B32;1 


Pane a 


“yoy 


2 


SUGLERIMIO SPRANG ENMSMEONR wBtate catculatto, Sstetggs 4:56:25 YMCTY OLtae Re ue 32:1 8B} 


SSMGSGET_TERM_DATA(SET_CURSOR_ABS, .F INAL_ROW, .F INAL_COL); 

STATUS = SMGSSOUTPUT(PBCB, .PBCBCPBCB_L_CAP LENGTH) 
.PBCBLPBCB- A CAP“BUF FERS; 

IF NOT .STATUS THEN RETURN .STATUS 

END ! Restore final cursor position 


END ! Issue the reset 


END; ! Remove scrolling regions 


Flush the buffer associated with this pasteboard if the exit 
was stenceee Te 

Th 8 prey ents us from flushing the buffer on things Like 
CTRL/ (S88. CLIFRCEXT). 

Ignore any érrors. 


IF tee seein EXIT_REASON) 
THEN BEGIN 


do a final (or only) snapshot. 
Otherwise worell, lush the buffer. 


' 
i 
if PBCB_V_RM 

THEN SMGSSRAPSHO t¢ (PBCBCPBCB_L_PBID)) 
ae oe SMGSS$FLUSH_BUF FER (PBCBY; 


: it output js yh gentrotied by RMS, then 


'¢ 
t Change the terminai width back to what it used to be. 


IF .PBCBCPBCB_W -WIDTHJ NEQ .PBCBCPBCB_W_ORIG_WIDTH) 
THEN BEGIN” ~! Change physical width 
LOCAL 
oir’ WIDTH, 
L_QIDTH 


Higa otence 


DESIRED_WIDTH=.PBCB(PBCB_W_ORIG_WIDTH); 


'¢ 
i First, clear the screen. 


SSMGSGET_TERM DATACHORE) 
STATUS=O0TPUTT.PB -,PaCoLPRCE L_CAP_LENGTH), .PBCBCPACB_A_CAP_BUFFER)); 
IF NOT .STATUS Tae RETURN .STATOS; 


SSMGSGET_TERM_DATA(ERASE_WHOLE_DISPLAY); 


at a a a et a a a a ak ke a ak a td a ns od 2 2 = 
a a a ek a a at td ot 2 2 “a 2 tt 
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mERT HANDLER = Exit t handler -0¢t-19 
IF pecetrecs. L_CAP_LENGTH) NEQ 
THEN a i. nadid 
STATUS = SMGSSOUTPUT(PBCB,. PREREPBSR fa “LENGTH 
| «STATUS THEN RETURN. STATUS 


v6 .0- p 
SMGRTL BUGERCTSMGAGNOPS .B32:1 ead tT 5 


“vy 


3 
5 


1 
1 
1 
1 
1 
1 


— > So at 


e 


4 *. 
4 : 
4 : 
4 : 
: : 
: ‘ 
410 rr ; 
ite ; Second, get the normat size. : 

1 ai 

i rar SSMGSGET_TERM_DATA(COLUMNS 

415 IF ,PBCBPBCB-L_CAP_ CENCTNI NEO 0 : 

165 £18 BIND RESULT=,PBCBCPECB A. CAP BUEFER; : 

17 t18 STATUS = SAGESOUTPUT (PBCB, .PBCBI POC. _CAP_LENGTH}, 

178 420 IF NOT .STATUS THEN RETURN’ .STATUS; ~~~ . ; 

178 431 NORMAL WIDTH= RESULT ; 

175 : § ELSE NORMAL_WIDTH=80; ; 

179 455 rr 

178 : $ ; Third, get the wide size. 

: é 

18 238 SSMGSGET_TERM_DATA(WIDTH WIDE); 

188 0 IF _ .PBCBCPBCB_L_CAP_LENGTH) NEQ 0 

182 are So aeou PBCBCPBCB_A_CAP_BUFFER): 

s, UFFER; 

185 § STATUS 5 re ee re L_CAP_LENGTH) 

186 PBCBLPBCB-A_CAP_BUFFER]); 

18 5 If NOT .STATUS THEN RETURN”. STATUS; 

188 WIDE WIDTH=. RESULT 

189 END 

190 

Hs 

198 

19% 

198 

iH 

199 


mCSSPaCB 
3 
4 
4 
6 
4 
4 
“ 
& 
4 
4 
| 
4 
4 
& 
» 
4 
4 
; 
4 
& 
4 
Es 


ELSE WIDE_WIDTH=80; 
'¢ 
Decide which sequence to send. 


THEN BEG 
eFatus = = snatch. PBCB -b CAP. 
PBCBLPBCB_A_CAP_ 


ENGTH} 
© FFERIS; 
JF NOT «STATUS THEN RETURN .STATUS; ~ 


‘or 


END; ! Change physical width 


i ‘then the screen if the user asked us to. 
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SAG Space. DATE = ie 


SMGS$$PB XTT_HANDLER = Ex SMGRTL 
14 ” -PBCBCPB SCREEN) 
i THEN SRESEENRSE CPA EEPAST EBOARD (PBCB); 
1? 5 SMGSSFLUSH_BUFFER(PBCB); 
1288 ! eee | don't know whether or not an exit $93 "non is supposed 
1208 : to return a value; so I'm returning SS$_NORMAL for now. 
14 RETURN SS$_NORMAL 
1296 END; ! Routine SMGSSPBCB_EXIT_HANDLER 
~-EXTRN SMGSCNANGE_PBD_CHARACTERISTICS 
OFFC ENTRY RGAE AO praigiat Save R2,R3,R4,R5,- 
58 9000 cr 9E MOVAB 
A 000000006 98 one Ree Va a R10 
5 8 AC OD MOVL CB, R2 
4 A MOV atres wee 
0 OOF4 mOV2WL ge tRd)” 
‘3 BEQL 4 
01 ° CMP RO, #1 
2 00 BNEQ =} 
02 A4 OOF6 if hy aren ggetha). 2(wCB) 
56 OOF C C2 oS + 232182), R6 
88 BNEQ § 
53 0108 =#¢ 4 MOV 64(R2), R3 
p ¢ CLRL (3) 
1 BRB 3 
04 AE pe MOVL #2, INPUT_ARGS 
08 AE rout #1, INPUT _ARGS+4 
0c AE 2 A Be MOvZWL 42 ( WCB) IRPUT_ARGS+8 
8 bp mene otaaknes 
53108 ¢ BE f MOV (R2), R3 
D 00 PUSHL 
4 2 OF PUuS 2 ee 
10 AE 2 5 ee . at fi 42 ¢ 16(SP) 
£ 00 PUSH mS 
94 F CALL SRoseeT. TERM_DATA 
2 . BLBC STAT 
TSTL (R3) 
0 BEQL 
$ 9 AG CVTWL (WCB), FINAL_ROW 
AG CVTWL site} e PINAL. COL 
5 01 C MOVAB 60(R2), R 
4 ne PUSHL ie) 
' PUSHER 
01 CALLS 58, SMGS* JUTPUT 
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HANDLER = Exit t handl “Oct-1 SMGRTL .BUGSRC SMGHINUPD. 832;1 


i 2 ee RTE try 
3F OC A2 : F 5 ie Wir 9$ : ed 
BNE sg” : 
p CLAL (Rs) : 
A BRB ; : 
4 AE ) Ht 5$ MOVL # hap INPUT_ARGS FY 
8 AE D MOVL FINA L ROW, INPUT_A : 
C AE 3 Ad MOVL FINAL “COL INPUT “ARGS+8 ; 
04 AE 9F OO0A8 PUSHAB INPUT-ARGS ; 
$ DD OO00AB PUSHL (RS) : 
D O00AD SHL OR : 
9190 f F OOOA PUSHAB 2 g(R2) : 
orn ee 8: ee a 2 
3 DD O00BC SHL R : 
gA fF : ‘ CALLS & SMGSGE T_TERM_DATA : 
0 E ¢ $$: BLAC STATUS, 14$ ; 
65 DD 000C4 7$: PUSHL (5) + 1350 
$ DD C6 PUSHL (R3) + 1349 
DD $00¢ PUSHL Re : 
F CA CALLS #3, SMG$S$OUTPUT : 
4 D CD VLE = RO STATUS : 
7 4 € D as BLBC STAT 16$ : 1351 
17 0088 f E9 00003 9$ BLBC 6(R25 iis : 1367 
OA 0000 C2 3 D BBC * BiR2), 108 ; 1373 
16 A2 OF DF PUSHAB 20(R2) + 1374 
0000v CF 0 FB E CALLS #1 Daniel : 
7 1 £6 BRB 11$ ; 
; DD OO0TR ios: PYISHL i : 1375 
FEIF OCF FB cA CALLS SNGSSELUSH BUFFER : 
0066 C2 SA A BI YOOEE 118 CMP 99{R2) ; 1382 
0198 5f BRu «398 ; 
59 O0E6 C2 %c OOOFA 128 MOVZWL <3 (R3), DESIRED_WIDTH > 139 
56 fe OC MOVAB 5°2(R3). R6 : 189 
6 p TSTL (R46) : 
BNE 135 ; 
§ D CLRL —_: (R3) : 
6 11 F BRE 153 ; 
4 AE p4 111 13$:  CLRL —s INPUT_ARGS : 
4 AE 9F 00114 PUSHAB JNPUT"ARGS ; 
01 . <€ pp 117 PUSHL 0¢R3) F 
53 108 c — 0011 VAB 4(R2), R3 : 
D 001 PUSHL R : 
100 ¢ F 001 PUSHAB 2 $¢R2) : 
10 AE 10¢ F 3¢ 001 MOVZWL #476, 16(SP) : 
10 AE 9F O010C PUS 16(SP) : 
DD OO12F PUSHL R ; 
6A FB 1 “" CALLS #6, SHGSGET_TERM DATA ; 
ge 0104 SF 137 188: MOV 34 (RSS, RS : 1399 
DD 0013¢c PUSHL  (R5) : 
DD 001 ; PUSHL (R$) : 
62 0D 001 PUSHL  (R2) ; 
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: Routine Size: 


646 bytes, 


DATE = Mini 
HANDLER = Exit 


FOAG CCF 
FCeC: OCF 
50 


Routine Base: 


update calculatio 8. b-1985 
2-0ct-19 


FB ap 76 
i) 7B 408: 
4 0270 


DO 00 
04 00 HY 41$: 


handler 


1 
i 
01 


_SMGSCODE 


+ O41F 


5 -VAX=11 Bliss-3 Page 40 

Be 93:88: i YSMGRTL BUSERE SsmcAy mors 832; 1 oge 1a) 
CALLS #1, SMGSSERASE_PASTEBOARD , 

PUSHL ; 1463 
CALLS #1, SMGSSFLUSH_BUFFER 

MOVL #1, RO 3; 1468 

RET ; 1470 
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NIMUM_UPDATE = Minimum update tg ned b-san-1985 73:26:93 yard Bliss-3 


ZSBTTL “SMGSSSETUP_TERMINAL_TYPE = Setup terminal type for SMG$$ routines’ 
GLOBAL ROUTINE SMGSSSETUP. TERMINAL TYPE’ ( - <a t 
FILE_NAME; 
P TERK TYPE 
PBCB_ADR : 

= 


'e¢ 


! FUNCTIONAL DESCRIPTION: 


This routine uses the agec If ted file name to determine device 
characteristics and assign a seranel type code which is understood 
by other SMG$$ routines. SMG$$ routines use the terminal type to 
oeramne the correct escape sequence for a given function (ex. set 
ursor). 


CALLING SEQUENCE: 


i 

i 

i 

i 

; 

i ret_status.wic.v = SMGSSSETUP_TERM_TYPE (FILE_NAME.rt.r, 

' NAME _LEN.rl.v 

i P_TERM_TYPE.wi.r 
C,PBCB_ADR.wi.rJ) 

} FORMAL PARAMETERS: 

i FILE_NAME .rt.r addr of file name text 

; LEN.rl.” length of file name text 

‘ P_TERM_TYPE.wi.r terminal type code, one of the following: 
: unknown 

. uty (unused) 

: vt (unused) 

‘ vtl (unused) 

: vtforeign 

hardcopy 

i PBCB_ADR.wl.r Address of longword to receive address 
‘ of the pasteboard control block. 

If 0 or omittes, no PBCB gets allocated. 
; IMPLICIT INPUTS: 

NONE 

: IMPLICIT OUTPUTS: 

PBCB fields get filled in. 

; COMPLETION STATUS: 

: SIDE EFFECTS: 

NONE 


MGRTL.BUGSRC ISMGMINUPD B32; 1 


‘Peta ea Hae SALES TT Ge 


5 

5 

5 

3 

H 

; 

5 

3 

5 : DEV_NAMLEN : VOLATILE WORD, ' Length of returned 
564 ' resultant name string 
303 TERMTABLE; ! Address of terminal table 
5 


es ts as a 2 


e9 BIND 
' make it easy to reference 


items retd by S$GETDVI 


hnnnnan 

ezezese 

c-++¢+774 
MEM 
> 8 


KC,BYTE), ! Device characteristcs 
ORC BYTE); 


LEN = SMGNAMLNAMST_DV1 


ABDEV = SNGEABEFABSL DEV 
V1_NAME_ 
VI“NAME = SRCNARENARST “pvij+1 


: BLOC 
: BYTE 
: VECT 


SSMINIMUM_UP SMGSSMINIMUM UPDATE - Minimum update calculatio 9-Jan-1985 AX-11 Bliss-3 ue 
* 6 SMGSSSETUP_TERMINAL_TYPE = Setup terminal type f= Jan-1985 q): 38: %3 SMGRTL .BUGSR RCSSMCAINOPS. B32;1 
3 3 1525 BEGIN 

3 3 1 8 

3 : : BIND 

3 i } : TERM_TYPE = .P_TERM_TYPE; ! Address to get terminal type 

: : : 1 BUILTIN 

; : : : NULLPARAMETER; 

: : : 5 LOCAL 

3 1 1 $ SMGF AB : SFAB_DECL, 

. 7 1 8 SMG : SNAM_DECL 

:1 1539 DEVNAM_DSC : BLOCK C8 gies ' dsc for 

:1 1540 DVI_ITALST : VECTOR COS + 14 INITIAL i item List for SGEIDVI 

3 1541 (DVIS_DEVTYPE “16 +4, 0, 0,.! device type (DT$_x 

3: 1 1365 DVIS_DEVDEPEND * 16 + 4, 0, 0,! device dependent sits, (1) 

3 1 154 By ie-pEveur tee “16 +4, 0, 0,! device dependent bits (2) 

. 7 1544 DVIS_DEVBUFSIZ * 16 + 4, 0, 0,! terminal width 

.Y 1545 DVIS_DEVCLASS * 16 +4, 0, 0.! device class Cocs xyz) 

3 7 1366 BYES DEVAN * 16 +64, 0, 0,! result name string 

; ! 1347 ), i terminater 

3 1 1549 DVI_EFN ' event flag for $GETDVI 

3 3 1550 dv1~10s8 : VECTOR C4, WORD], i 1/0 Status block for $GETDVI 

: 1 1551 STATUS i status retd by called rout ines 
:1 1 5 DEV. TYPE : VOLA i storage tor ETCVI value 

3 1 155 DEV_DEPEND : V SLATILE “BLOCK 4, BYTE), ' device dependent bits (1) 
: 1 1554 DEV_DEPEND2 : VOLATILE BLOCK (4, BYTEJ, : gov 'ee, $e e de ror bits (2) 
3; 1 1555 DEV_BUFSIZ : VOLATILE, ; Storage for $GET value 

3 : ! § DEV_CLASS : VOLATILE. ! storage fpr SeETDVI value 

; ' ' 28 DEV_PAGSIZ, ! gets the number of rows of device 
3 1% 1560 DEV_DEVNAM : VECTOR (64, BYTE), ' Buffer for result name 

3 1 1561 ! string 

3; 1 156 

3 1 156 

3 1 1 

3 7 1 

3 1 1 

3 1 1 

| 1 

3 7 1 

3 1 1 

3 3 1 

3 7 4 

€ 1 

31 ] 

3 1 1 

3 1 1 

3 7 1 

3 1% 1 

3 3 1 

3 1 1 

3 1 1 


; 
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GENERIC_ANSI_CRT_BUF =: VECTORCL16,BYTE) 
INITIAL (BYTE ("GENERIC_ANSI_CRT")), 
GENERIC_DEC_CRT_BUF : VECTORC15 BYTE) 
INITIAL (BYTE ("GENERIC_DEC_CRT")), 


GENERIC_ANSI_ CRT DESC : VECTORESd« 
GENERIC_DEC_CRT_BESC : VECTORL2); 


TERNAL ROUTINE 


SMGSINIT_TERM_TABLE_BY_TYPE, 
SMGSINIT- TERM TABLE, 
SMGSSCREATE_PASTEBOARD, 
LIBSLP_LINES; 


! Initialize terminal table by type 
! Initialize terminal table by name 
' Create a PBCB. 
! Get number of rows for (pt 


WR gm 
1 1584 

HF 

+ et 
me Oe 
Me 

1 : 1 38 

1 : 1594 

: 4 : 95 EX 
1351 159 

1 § 1598 

1 1599 

1354 1600 
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s¢ — to parse the rot eh name. 
his will give us a character physical device name 

the DVI field int ock. 

If we Just use ScEToVE wr aay return a 63-character hidden 
f 

f 


— 
Pan 
Wit 


w 


n 
evice 
he main reason w fies “TTBSs* as is ¢0 that we can allow filenames. 
the user specifi his device, he gets a terminal. 
he user poec yt es TTBS as ‘Hi output, he gets the file 
TBS.LIS on his default disk and directory. 


—? ot td 


U 
T 
i 
( 
d 
T 
I 
I 
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; Initialize the FAB and NAM blocks. 


$FAB_INIT( FAB 
DNM 


PAPA OAPSSOAAAOAOAO 
et a a a a ed 


*SReOUfPUT.. LIs', 


NAM 
FNA = .FILE NAME , 
FNS = 


SNAM_INIT(NAM=SMGNAM) ; 


STATUS=SPARSE (FABSSAGE AB) ; 
IF NOT .STATUS THEN RETURN .STATUS; 


vuvD 


ee ed ed ed ee ee ee ed ee ee ee ed ee ed ee ee ed ee ee ee ee ee el ee ee el ee el ce el cel el cl cee el cel el el eel cel cel cel el cel cel cel cl ll cls cl ld cel 


'¢ 

i The device name is now ot ,°s eguytes string in the NAM block 

i beginning at offset 

i There is an obscure case reat that gon occur. If the output device 
i is on another node. then vata Eennet figure out the device name 

i so the DVI fiel Senet is can happen if an SMG job is 

run as a TASK w th SYS iput” efined to be SYS 

i 
i 
i 
i 
i] 


MFUN $C ODNOVE WN “CO OONOUF WHO 0@ 


sats peppens when you use the “‘TASK=F00"' kind of filespecification 


t 
To allow this to work, we check to gee if the device characteristic 
of the papteseare device is DEVSM_NET. If so, we bypass the call 


' to $GETDVI, and we fill in the fields the best we can. 


IF_ .FABDEVCDEVSV_NETJ 
THEN 


a ee aa a et a es = = as = = a 


8 
9 
0 
Z 3 BEGIN ! Network device 
& § '¢ 
2 4 i Fudge the items to reasonable values. 
4 
& 0 DEV ives = DTS_MBX; 
4 1 DEV_DEPEND = 0; 
4 § DEV_DEPEND2 = 0; 
4 DEV_CLASS = DCS_MAILBOX; 
4 & DEV_BUF SIZ = 80; 
4 5 DEV=DEVNAM = .FILE_NAME; 
4 § DEV_NAMLEN =, LEN; 
% END ! Network device 


re 
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SSMINIMUM_UP SMGSSMINIMUM_UPDATE - Minimum update calculatio b-san- 5 21:56: AX-11 Bliss-32 V4.0-742 Pa 45 
aeete nese TUP_TERMINAL_TYPE = Setup terminal type ~3etn13b2 43:28:43 SMGRTL BUSEREISMCAGNOPS B32: 1 9° aid ‘ 

ot 1 H ELSE : 
Wie : BEGIN ! Normal device ; 
1616 1 DVI_TYPE = DEV. TYPE: ! fil in rest of itmlst 3 
141 1 DV ~pEOEND =D V=pEP 3 
1418 DVI-DEPEND2 = EVD PENDe; 3 
141 DVI_CLASS. = DEV_C aa : 
1420 5 DVI“BUFSIZ = DEV“BUFSI?; 3 
1421 096 DVI_DEVNAM = DEV_DEVNAR; : 
1? § 29 DVI_NAMLEN = DE EN; : 
1426 ee9 If NOT (STATUS = LIGSGET_EF (OVI .EFN)) F 
1 ; er THEN RETURN (.STATUS); T get unique event flag number : 
4 7 1+ ; 
428 O78 ! Create a descriptor for use by SGETOVI. : 
£% $75 a 
431 676 DEVNAM_DSC DSCSB_DTYPE] = DSCSK_DTYPE_T; ; 
4 ¢ 67 DEVNAM_DSC [DSC$B_CLASS = DSCSK_CLASS S; F 
4 O78 DEVNAM_DSC [DSCSW_LENGTH] = .DVI_NAME_LER; : 
: ¢ $28 DEVNAM_DSC CDSCSA_POINTER] = DVI_NAME; . 
4 P 1 STATUS = S$GETDVI( EFN = .DVI_EFN 

4 P g 10SB_ = =_—“ OVI 10s 

4 P DEVNAM = DEVRAM_DSC 

3 684 ITMLST = DVI_ITALSTS; 

re ° 5 IF NOT .STATUS THEN RETURN (.STATUS); 

4 ! ##* Possible bug: Should we deallocate the event flag if the 

4 : Sgetdvi fails? Otherwise, enough calls to this routine 

4 : that return errors will use up all the event flags. 
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439 

440 

: 1 

228 

444 

445 690 

rr | 691 STATUS=SWAITFR (EFN = .DVI_EFN); ! make S$GETDVI synchronous 
44 69¢ IF NOT .STATUS THEN RETURN” (.STATUS); 

448 69 

449 694 '¢ 

450 695 ! When the operation completes, the final status 

a3 $96 is left in the first word of the 1/0 status block. 

45 69 

$33 699 IF NOT .DVI_1OSB CO] THEN RETURN (.DVI_10SB (0)); 

4 701 END; ! Normal device 

re 7 § 

438 f '¢ 

45 ! Calculate the number of rows and columns for our pasteboard. 
460 705 ' If the Sev ce is , terminal, then the number of rows 

461 7 ! is the high byte in DEVDEPEND. 

re 7 ! the device is not a terminal, then the number of rows 

46 7 ! is herevy fee ‘er d to be that returned by LIBSLP_LINES. 

464 7 : don et th ; get bigger than 511 however, Since we 

465 at ! store the result in a byte. 

$66 71 ' The er qt columns is the device buffer size, whether or not 
46 rg ' the device is ? terminal. 

468 71 ‘if the device is not aterminal, then we assume it will evencually 
469 714 i be printed on a terminal or a lineprinter, so we minimize 
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! the width with 132. We migne wish to reconsider this idea 
n the future if we ever start producing wider terminals. 
4 
& 
& 
fe 
4 
4 
& 
4 
“ 
& 
4 
7 
4 
& 
4 
& 
4 
a 
4 
4 
4 
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re 4 
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tt 8 


MEN" O OBNO UE AN)" OOO~Ou 


a ari ceria EQL OCS_TERM 
DEV_PAGSIZ = .DEV_DEPEND(TT$V_PAGE] 


| 


SOs 


DEV_PAGSIZ = MIN(L 
core = MIN(. 


i¢ 
Allocate a pasteboard control block (PBCB). 


IF NOT NULLPARAMETER(PBCB_ADR) 
THEN 


SSELERFANIS Se 


BEGIN 
STATUS = SMGSSCREATE_PASTEBOARD ( DEV_PAGSIZ, DEV_BUFSIZ, .PBCB_ADR ); 
ih NOT .STATUS THEN RETURN (.STATUS); 


Dt el rele el edhe Deke Ieee et eet ek tet et et 


$as2 


14 
! If the device is a terminal, we get information about it from 
TERMTABLE.EXE. We set TERM_TYPE to VITERMTABLE. 


oO 
wm 


TERMTABLE=0; 
IF .DEV_CLASS EQL DCS$_TERM 
THEN 


S322 


ooo 
wn 


BEGIN ! Get info from TERMTABLE 
If .DEV_TYPE EQL TT$_UNKNOWN 
THEN “BEGIN ! TERMTABLE never heard of it 
LOCAL GENERIC_NAME; 


! Initialize our descriptors. 


SELESE 


‘ 

' We couldn't do this with an INITIAL clause 

' because that would ognerate a .ADDRESS directive 
} which would require set vectors 

t 
1 


PPPS AAVISN ES 2 EE 


T read/write 
ng in our shared image. 


' which would make the PSE 
! which would prevent shar 


OONO NEW OOONO UE WN OO 0O@ 


PAAAAAATA SE FPS EEE EEE 


2s 


NOUS —O 


ENERIC_ANSI_CRT_BUF); 
CRT BUF: 
NERTC_DEC_CRT_BUF); 
T_BUF; 


ey 
qoneubece 
ERIC 


AAO 
wr 


Oe a st 


if it’s either an ANSI_CRT or a DEC_CRT, 
nm handle it. DEC_CRT has priority over ANSI. 


SOUS AE 
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_NAME=0: 
“DEPENDELTT2$V_ANSICRT) 
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'¢ 
i FILL im the e OF DE govt char fperistics block in the PBCB. 
g eld C L not be valid if the device 
terminal because we ine the top byte of this 
' Longword with the dev ce page ° ze (as it would be iors terminal). 


VSLSAH NISC SST 


$ 
; 1827 1772 4 THEN ‘ ot RIC_ANSI_CRT_DESC; 
3 1 1748 4 _ Tigh 6 oe rates gil? CAS] 
: } \f : ? RIC_DEC_CRT_DESC; 
; 1531 17 4 1 TY 
3 3 § 177 eee “ = j ic terminal 
4 1778 yt ATUsesnct fF enh, TABLE (. GENERIC NAME, TERMTABLED ; 
3 1 177 ervTt HEN RETURN $F ATUS; 
: 1535 1780 Rn Tye evit ant TABLE d 
: 1 1781 4 a abt oo terminal 26 
1 17 § 4 of it 
1 1? 4 ELSE BF by ide o ite TERAT Mts tera) nal 
1 1784 4 A US=SAG INIT_TERA 1 ale TYPE, TERMTABLE); 
1540 1785 4 If NOT. status Ty NrRet ET ORN OSTATU 
1541 17 4 TERM_ TYPESVT ERATAE ABL 
1 Ke 17 4 END ' Standard TERMTABLE sccnteat 
154% 1788 END ' Get info os TERMTABLE 
1544 1789 LSE 
1545 17 TERM_TYPE=UNKNOWN; 
154 1791 
154 1798 '¢ 
1548 179 ' Store items in the PBCB if one was created. 
1383 1794 t= 
188 1798 IF NOT NULLPARAMETER(4) 
we OS Me 
133? TA | BEGIN ! storing into PBCB 
1555 1800 BIND PBCB = ..PBCB_ADR : SPBCB_DECL ; 
eh 18 . 
+ 
1558 1 08 i We will need an event flag for many future operations on this 
1328 1O0e i | pasteboard. so we store away the event flag in the PBCB. 
138) 1806 
: $¢ : os PBCB CPBCB_B_EFN) = .DVI_EFN; 
13 : : PBCB CPBCB_B_DEVTYPE] = .TERM_TYPE; ! Internal type 
1 181 
1 181 
1 181 i Note that the DE 
1 181 is not a 
1 181 
1 181 
1 181 
1 181 
1 181 
1 1 
i 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
4 1 


0 
; 
3 ; 
3 é 
8 PBCB (PBCB_B_PHY DEV_ TYPEJ= -DEV_TYPE; ! Physical type. 
PBCB [PBCB_B_ CLASS = .DEV_CCASS: ! Device class 
? PBCB + .DEVBUFSI2; | pusper of columns. 
PBCB [PBCB"W-ORIG WIDTHJ= .DEV“BUFSIZ; / Humber of columns (original value) 
§ PBCB C[PBCB"L-DEVDEPEND) = .DEV-DEPEND; jolt “pach 8 sets 5 overlapped 
3 4 PBCB Pace B_ROUS) = .DEV_PAGSIZ; / Ade aga ; 
5 PBCB [PBCB_t Db Hh tS fa j= ? V"DEPEND2; | Se cadere characteristics. 
1 $ PBCB [PBCB_L_TERMTABLE TEGATABLE; i Terminal table 
§ i PBCB ([PBCB_L_LONGEST_S QUENCE}=SNG K_LONGEST_ SEQUENCE; 
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1 ‘+ 
1585 é ; : Allocate a buffer tu hold the longest possible sequence 
; that can be returned to us. 
: : 
1 et eee re CB_L_LONGEST SEQUENCE), 
} 5 PBCBCPBCB-A-CAP_BUFFER)); 

33 IF NOT .STATUS THEN RETURN <STATUS; 

9 


'¢ 
} Create the border vector. : 


ESTABLISH_BORDER_VECTOR(PBCB); 


'¢ 
: If terminal does not support direct cursor positioning, 
; then treat it as a cry device. 

: Otherwise, treat it as a TERMTABLE scope terminal. 


IF 


errs 
VFWN—OO@ 


oe 


Re Se Oe Oe Se Oe Se Se Ge Se Ge Ge Ge Ge Fee Se ee Se ae 


-TERM_TYPE EQL VTTERMTABLE 
THEN GEGIN 
SSMGSGET_TERM_DATA(SET CURSOR ABS, 1, 1); 
IF_.PBCBCPBCB_L_CAP_LERGTH) EG. 0 
THEN BEGIN 


TERM_TYPE=HARDCOPY; 
PBCBCPBCB_B_DEVTYPE) = .TERM_TYPE; | Internal type 


END; 
DATA(SCOPE); 
¢ crece L_CAP_LENGTH] EQL 0 
T Y 


_TYPE=HARDCOPY; 
PACBCPBCB_B_DEVTYPE] = .TERM_TYPE; ! Internal type 


E 
ELSE 8 
1 
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_TYPE=HARDCOPY; 
CPBCB_B_DEVTYPE) = .TERM_TYPE; ! Internal type 
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'¢ 
! Find out if this terminal supports high and/or wide Lines, 
and if it has physical tabs and backspaces. 


WN —O 0Onouw 


If .TERMTABLE NEQ 0 
THEN BEGIN ! Get info from TERMTABLE 


SSMGS$GET TERA _DATA(DOUBLE yIDe); 
IF Pocerrece at CAP LENOIR) NEG 0 


POPOPAOOPSAAAOAAAAAAAAAAAAOAAAAAS 


THEN PBCB WIDE ; ! It handles wide Lines 
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nm 6 
i i bead ad | 3 2 = «Ve 
c'="Setup terminal type” s-Oeta19be 42:58:49 Egmont. Seussacssmontnurs.o32;1 "8°24 


SSMGSGET_TERM_DATA(D Lf eo y 
IF peceth Pat CAP_LENGTA) NEG 

THEN CBCPBCB_V-WIGH] = 1; ! It handles double high Lines 
IF sPEV DECC NOCTTSV RECHT AB) 

THEN BEGIN 


PBCBCPBCB_V_TABS) = 1; ! It handles physical tabs 
' We check the NOTABS bit 
' elsewhere, because the user 
' can dynamically change that 
ne ' at runtime. 


SSMGSGET_TERM_DATA(BACKSPACE) ; 
IF PBCBLPOCS~L_CAP_LENGTH nEQ 0 


HEN 
| Sa ANSWER = .PBCBCPBCB_A_CAP_BUFFER); 
uth PBCBCPBCB_V_BS) = 1; =! It handles backspace 
END; ! Get info from TERMTABLE 


'¢ 
} Fill in the device name. 


PBCB CPBCB_W DEVNAM_LENJ= .DEV_NAMLEN; ! Length of Soyice name 
CHSMOVE ( [DEV_NAMLEN, DEV_DEVRAM, PBCBCPBCB_7_DEVNAM)); 


'¢ 
Initially, we don't know what color the background is. 


PBCB CPBCB_B_BACKGROUND_COLOR] = SMGSC_COLOR_UNKNOWN; 
6 
Output any initialization sequence now. 
SSMGSGET_TERM_DATA(INIT_STRING); 
IF .PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
THEN BEGIN 
STATUS=SMGSSOUTPUT (PBCB,. 
IF NOT .STATUS THEN RETUR 
END; 
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END; ! storing into PBCB 
RETURN .STATUS 
END; ! End of routine SMGSSSETUP_TERMINAL_TYPE 
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-PSECT 
ASCTI 


ASTI 


boa GENERIC _DEC_CRT_BUF : 


AX-11 Bliss-3 0-742 
SMGRTL .BUGSRE shentwurs. 832;1 


=SMGSDATA,NOEXE, PIC,2 


00004 GENERIC art. CRT _ BUF: 


YGENERIC_ANS3_CRT\ ; 


~YGENERIC, DEC_CRT\ 3 


“BURG 

0032 GENERIC_ANSI_CRT_DESC: 

G002C GENERIC_BEC ‘ie et 
-BLRB 


»PSECT 


-BLKB 
P.AAB: .LONG 


P.AAC: .ASCII 


«EXTRN 
»EXTRN 
~EXTRN 
~EXTRN 
»EXTRN 
OFFC 00000 -ENTRY 
cE 9 MOVAB 
AC MOVL 
or MOVC 
0 2 MOVC 
AD 
F 3 MOVW 
§ MOVB 
9 MOVB 
CD 4 3 MOV 
AC MOVL 
AF AOVAB 
i t 
4 ec moves 
F BO MOVW 
AD 9F PUS 
1 Ff CALLS 
7 : 
. £ 
dO 
D4 
4 
A 
& 
b0 


-SMGSCODE ,NOWRT, SHR, PIC,2 


+ 655364 0. 18350 0, - 
2599" ae ysit Ma 0, 3555107 - 
\SMGOUTPUT.LIS\ 
SHGSINIT TERM. TABLE_BY_TYPE 
GSINIT M~TABLE~ 
ones CRERTE PASE ARD 
LIBSLP_LINES, SYSSPARSE 
SYSSGETDVI, SYSSWAITFR 


SMGSSSETUP_TERMINAL_TYPE, Save R2,R3,R4,R5,- 
7,R8,R9,R10,R11 


(SP), 
P TERA. TYPE, R11 
10 qT MLST 
10." (Shy #80, SRMS_PTR 


og0s8s. SRMS_PTR 
, SRAS presi 


393 0 
Pt 


SRMS“PTRe 
a3: Sans: SRMS Pr R+40 
FILE_NAME, SRMS_PTR+44 
P.AAC, $RMS_PTRI48 
NAME ~EN Sans TR*52 
#13, ~SRMS_P 
#0, (SP), “hon ie, $RMS_PTR 
#24578, SRMS_PTR 
SMGF AB 
#1, SYSSPARSE 
RO, STAT : 
a5, FABDEVe1. 1$ 
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PSOne 


eh et ne st 


? 
SSMINIMUM_UP SMGSSMINIMUM UPDATE - Minimum update calculatio B-son-19 5 756: AX-11 Bliss-32 vé.0-742 e 1 
eh ~ SAGSSSETUP_TERMINAL_TYPE = Setup terminal type Seah Hi 93:28:93 EOMGRTL BUGERC SMGMINUPD .832;1 al Fh 
1€ AE 08 ac MOVW NAME_LEN, DEV_NAMLEN : 16 
008A \ BR 4s . : 1 
ees 18: ROVAB DEV. TYPE. DVL TYPE i 186 
¢ es 0¢ MOVAB OD V~DEPENDS DV]_DEPEND2 : 1888 
C MOVAB DEV“CLASS, OvI_CCA ; 1664 
C 64 mOV D vieur Siz. DVT_BuF S12 > 1665 
¢ ¢ 0 MOV DEV-DEVNAM. DVI~ > 1666 
FPO OCD ie AE MOVAB DEVNAMLEN. DV1~NAMLEN > 1667 
04 ak PUSHAB DVI~EFN > 1669 
000000006 F CALLS #1, “LIBSGET_EF ; 
8 ROVL RO auaty : 
ie E 28: BLBC SIATUS : 
FF4A CD 010€ §0 MOV’ 8270, SEWNAM_DSC+2 ; 16? 
FFB OCD FF64 OCD 0¢ MOV7BW DVI_NAME_LEN; DEVNAM_DSC + 167 
FFAC OCD FF6S ) 7 ty 4 | ad DE VNAM_DSC #4 : 5 8 
CLAL (SP) ; 
C oF SHAB DVI_10S8 : 
c CE OF PUSHAB DVI~ITMLST : 
FFAS cD 9 PUSHAB DEVRAM_DSC : 
04 CLAL -(SP) : 
20 DD PUSHL DVI_EFN ; 
900000006 F CALLS #8, “SYSS$GETDV! : 
: MOVL oR STATUS ; 
5 E B.BC STATUS, : 1685 | 
04 AE DD PUSHL OVI_EFN : 1691 
000000006 90 FB OC CALLS 81, “SYSSWAITFR : : 
9 9 001 ROVi RO STATUS gg 
; E9 00108 35: BL Bt STATUS > 1692 | 
7% AE £8 001 8.85  dvI_1088, 4$ : 1699 | 
0 % at 3 001 . Rov ZL DVI~10S8. RO ; 
00000062 BF 60 Ag OT D0114 48 CAFE V_CLASS, #66 > 1719 
0? 12 O011¢ BNEO ; 
08 AE 6F OA 9A D138 ROY ZBL V_DEPEND*3, DEV_PAGSIZ > 1721 
Fe 0125 SS: CALLS 80. LIBSLP_LINES ; 1726 
1eF f pot ont RO, #511 3 
50 OTFF «BF SC (001 MOV7wi 8511, RO ; 
08 Ar 0 001 3A 68: MOVL RO, BEV PAGSIZ : 
HS 64 af 001 MOV. =D V.Buesiz. R ; 1725 
00000084 S Bete neh RO, #13 : 
ra * 3 bo pies 73 Rov. RO. bey BUFSIZ 
04 6C 8 001 3 88: (meg (ae), af : 1732 
18 1F 001 BiSSU 108 : 
10 aC 0} 01 TSTL 16(aP») : 
16 001 BEQL «=s«é108 : 
1 AC 4 001 PUSHL PBCB_ADR : 1735 
01 PUSHAB Ev _BUFSIZ : 
1 9F 0016 PUSHAB D ViPAGS| : 
000000006 99 of 90166 CALLS a3. sms CREATE PASTEBOARD 
65 é 0156 % BiBC = STATUS, Yes ; 17% 
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SMGSSSE}UP_TERMINAL_TYPE = Setup terminal type 2-0ct-19 SMGRTL .BUGSRC JSMGMINUPD .832;1 (21 
OC AE D4 00173 108: CLRL 3s TERMTABL : 1746 
00000062 aF $5 at D1 % cmPL PEY.CLAS , 066 : 1746 
70 A 1 TSTL v_TYPE : 1749 
EF ; f Harty iS GENERIC_ANSI_CRT_DESC = 1761 
titttttce F 00000000" EF BF 18¢ MOVAB GENERIC_ANSI~CRT_BUF,~- : 1762 
GEWERIC ANSI~CRT~DESC +4 : 
90000000" EF OF g0 197 MOVL #15, GERERIC-DEC-CRT_DESC : 1763 
* EF 00000000" &F 19 MOVAB GENERIC_DEC_CRT_BUF,~GENERIC_DEC_CRT_DESC+ : 1764 
50 D4 OO1A CLAL GENERIC” NAME : 1770 
9? oooo008h AE £9 001AB B.BC DEV DEPENDZ+3 118 + 1771 
0 ‘ cf TAF MOVAB NERIC_ANSI_CRT_DESC, GENERIC_NAME : 177 
07 68 Ar 5 1B6 118 BSC #5, DEVDEPERD2+3, 1 : 177 
50 00000000" EF 188 MOVAB GENERIC“DEC_CRI_DESC, GENERIC_NAME : 177% 
g p 1C2 128 TSTL GENERIC _NARE 3 1775 
1¢4 BEQL ~=s«da1 78 ; 
aa tt a a bs 
000000006 F 1¢ CALLS #3. SMGSINIT_TERM_TABLE 3 
DO 00102 138:  MOVL RO. STATUS : 
‘ 10 BLBS STATUS, 168 + 1779 
020A 31 1 148: Ble 42$ 3 
9c AE 9F 00108 15$:  PUSKAB TERMTABLE ; 1784 
& A oF 1D€ PUSHAB 0D pe hi | : 
000000006 00 0 f tel CALLS r) , SMG$INIT_TERM_TABLE_BY_TYPE : 
68 bg DO OOIEA 168: MOVL a (R11) > 1786 
11 OO1ED BRB § : 1748 
68 D4 OO1EF 178: CLAL (R11) : 1796 
04 6C 91 OO1F! 188: CAPR CCAP), #6 : 1796 
E2 1 OO1F4 BLSSU-148 ; 
10 AC O 1F6 TSTL = 16 (AP) : 
DD 1 1F BEQL =-:*148 ; 
56 10 Bc 1FB MOVL § @PBCB_ADR, R6 : 1800 
66 «Ab 06 AE 1FF MOVE DVI_EFN, {02(R6) : 1807 
10 A6 68 4 MOVB (RIT), 16(R6) : 1809 
59 Ab 70 AE MOVE DEV_TYPE, 89(R6) : 1818 
58 Ab 60 AE MOVB DEVICLASS, 88(R6) : 1819 
SAO 64 AE B 1 MOVW DEV BUFSIZ, 90(R6) > 1820 
6 66 64 AE OB 1 mMOVW DEV ~BUFSIZ. g30(R6) > 1821 
C 6 AE 1 MOVL DEV“DEPEND, 92(R6) > 1822 
F Ab AE MOVE DEV"PAGSIZ. 95(R6) > 18246 
60 A 6 AE MOVL BEY DEPENDS. 96(R6) + 1825 
5 OoFC «CC ¢ MOVAB TRE), R : 1824 
o¢ AE 1 MOVL TERMTABLE, (RB) ; 
A 01 4 5 MOVAB 256(R6), R10 + 1827 
6A FF F OA MOV7BL #255, (R10) ; 
7 0104 $ 9E MOVAB 260(R6), R7 > 1835 
DD 0024 PUSHL R : 
A D & $ R10 3 
000000006 F ri CALLS a. LIBSGET_VM : 
D ‘fF et STATUS : 
E BLBC STATUS, 148 : 1836 
8 DD PUSHL = > 1842 
0000v cr it CALLS #1, ESTABLISH_BORDER_VECTOR ; 
6B D 8 CMPL (R11), #6 : 1850 


SMGSSAIN 
eb INIMUR_UP S$ 


AGSSA 


SMGSS$S 


IN 
eT 


IMUM_UPDATE - Minimum update § 
etup term 


UP_TERMINAL_TYPE = S 


—— 
oro 
> 
mn 


10 «AE 


000000006 99 


68 
10 =A6 


52 


52 


10 «AE 


0108 


10 
0108 


023A 
10 


—— 
oo 


19 


S 


SVS SOD aM DAVEVOP SMD MO UH WO ROOD 


alculatio 
nal type 


+++ 
BLAS OMWMVSM OVMVOS DEVOMDS PA HOO UM MOS O aon SOS arch Grow oro 


SOOO oe 


es 


++ _+_+_+_+_+_+ 


SS SOO COBO BODO 


7 
B-san-t9 
“Oct-19 


—_ 
oO 
oe 


208: 


218: 


228: 


Be 42:38:15 


SMGRTL .BU 


NPUT_ARGS 
NPUT~ARGS+4 
NPUT =ARGS +8 


A—MO DW 


Po 


(SP 


#6, SHGSGET_TERM_DATA 
STATUS, 268 


, eters 


D—B DDN —-—- BB BN — PF 


Nun Bro 
WD Dmu— 


é 
> 
Da 
a 
“ 


16(SP) 
P) 


BD B DD 


6, SMGSGET_TERM_DATA 
stat S, $53- ~ 


AX-11 Oi teenss 
GSRCIS 


v4. 
MGA 


-74 
INUP 


2 
D.832;1 


SARSRINIRUR_UP 


E—E = Setup termi 


000000006 00 


C6 


52 


NIMUM_UPDATE = Minimum update 
SMGSSSETUP_TERMINAL_TYP ~ 


10 


6D 


10 


e 


=—Yo-Orw 
-ocrerrcor 


BARS 


5D 
-—@20-o- 
n—mor > 
—~ 


Sq 


VOW DIG F PMAOAOOC OW" 
ONMIM SNOT MN MOON 


ooo 
MVRIOSC OOM Th Pro ~MM 0 & CO VIVOC oom 


Sad at at et 


Sv Ah Ab Abd) 


SEPPESSseeeessSoIssss sss 


hed 
o 
on 


Ww 
on 
PM 


Be 93:88:98 oMGn te bdesacismcniwors 032; 
HAB i“ 


# SHGSGET_TERM_DATA 
status, 4 


in 250(R6) 
rb) 

1 

R2) 

3 
INPUT_ARGS 
INPUT"ARGS 
(R7) 

R 
R10 
#461, 16(SP) 
16(SP) 


#6 SWGSGET_TERM_DATA 
STATUS, $ 


34 

#2, 250(R6) 
DEV_DEPEND+1, 35$ 
#4 ,~250(R6) 

(RB) 

tno) 

ag 


INPUT_ARGS 
INPUT~ARGS 
(R?) 

R10 

#4, 16(SP) 
16(SP) 


R 
#6 SNGSGET_TERM_DATA 
TATUS, 438 


unm 
OD 


) 
EVNAM, 24(R6) 


DN nee FANS VOOR 


ee ee 
‘a 


rr 


Gof a 


10 AE 


000000006 99 


0000v CF 
5 
0 


; Routine Size: 1001 bytes, Routine Base: 


3 Dd 
O1D5 F Hi 
1 A F 


§ oD 
i 


04 
-SMGSCODE + 0701 


D 
{ 


conroco7o 


DNV ONLEMO 


psgionee 4° 4 4A bd dp teval f_] 
@ovwrwoe 


= 
= 
sed 


oat 
wry 


PH 


. 
7 sada al SMGSSMINIMUM UPDATE = Minimum update calculatio 9-Jan-19 


SMGSSSETUP_TERMINAL_TYPE = Setup terninal type 2-0ct-19 


Be $3;28:%3 USMGRTL BUGSACSSMGAGNOPS.B32;1 


R19 
#478, 16(SP) 
SP) 


SHGSGEI_TERM_DATA 


Page 55 


ed 


oe ca 


-—— Smo 
ra 
“ve 


SAINI NICO OO 
anu 3323 
RERERLKE AS 
NOUS WO & 


Oo 
= 


BLES 


Se 


a ha > > > i p> i | 
eH st 2 a a 
SESSSSSSSssssse 

PAAADAIIVIVT 
WO OONOUSW—O0OM@ 


a 5 


ee ed ee ee ed ed ed ee ee 


a ee cee et el ee el el el el cel el eel eel eel sald 


SAN NNN 
a a a Ba a de 


—OOCONO NEW OC OOBNOUSWN—O 
ooovovown 


WATOPONONOPORoNoRoTOND 


w 
SNS 
MEW —OO0O®@ 


IMUM 4 oh - Minimum update calculatio on Jan-1985 AX-11 Bliss-32 V4.0-7 
H_BORDER. VECTOR = r gern 1She Fish: Fs | PaMGAT Ch igen3g vend 
ZSBTTL “BRT AaL eh. BORDER “VEETS 

ROUTINE ESTABLISH BORDER” VEC x P_PBCB) : NOVALUE = 
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FUNCTIONAL DESCRIPTION: 
Creates a 16-longword vector used for Scgnslating border ,coaresters. 
If the Longuerd ret? a@ value less then 5 is a border 
character. S$ greater than 25 6 then it is” the addresss of 
a border LB sequence. 
CALLING SEQUENCE: 
ret _status.wic.v = ESTABLISH _BORDER_VECTOR(P_PBCB) 
FORMAL PARAMETERS: 
P_PBCB.rab.r Address of PBCB 
IMPLICIT INPUTS: 
contents of PBCB 
IMPLICIT OUTPUTS: 
R_BORDER VECTOR field in PBCB gets set up 
V=COMPLER_BORDER is set to 1 if some border element 
is longer than a byte 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 


NONE 
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If 13? BEGIN 

5 13e BIND Pace = .P_PBCB : SPBCB_DECL; 

i i LOCAL STATUS; 

7 19 ¢ ‘4 

740 19 i Macro to set code Lon qrord in perest vector if 

741 19 ¢ i correspond ng ca abitt 4 ae? 

a) 1 i We use the default character f so [capability doesn't exisit 

oe } _or if it does exist but the terminal is a non=AVO ANS! CRT. 

ny ae 

ms » MACRO 

re ! $VECTOR_SET(CODE,CAP,DEFAULT) = 

731 : BEGIN 

P36 ' BIND TT2 = PBCBCPBCB_L_DEVDEPEND2) : SBBLOCK; 

ree \ BIND VECT = PBCBCPBCB_R_BORDER_VECTOR] : VECTOR(161; 

73 1 SSMGSGET_TERM_DATA(CAP); 

758 IF .PBC L_CAP_LENGTH] EQL 0 

759 a i riteert T6809 -ANSITRTJ AND NOT .TT2CTT2$V_AVO)) 

ro Use default character 
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N ' Use default y gharegter 
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res 10 LOCAL SIZE; 

768 11 

768 ie + 

ry Oia Build a byte-counted string for this string. 
77 15 i 

rg 18 SIZE=.PBCBCPBCB_L_CAP_LENGTH)+1; 
774 1 

775 8 '¢ 

r76 1 i i Store ft virtual memory for the capability. 
rt Store it as a counted string. 

7 

7 4 STATUS=L IBSGET_VM(SIZE ,VECTCCODE)); 
, 1 4 IF NOT .STATUSTHEN RETURN .STATUS: 
38 é 's 

g : ; i Copy the capability in. 

7 

7 9 CHSMOVE (. “POCBEPBCBSA L_CAP_LE WE TH). 

7 Pp BCB-A-CAP_BUFFERJ, 
789 2 -VECTECODEI+#7) ; 


ae ee ee 


; SSM INIMUM_UP ; 


v2 
ba 


ERNEcjghininu wodete catculetio ysnnt985 21:56:25 YACHT OLEH sate 3231 P88} 


3s 
S 
= 


23 
Be 
— ie 


'¢ 
wae the byte count. 


SOLER 


1 
D COUNT = .VECTCCODE) : BYTE; 
NT=.PBCBCPBCB_L_CAP_ LENGTH] 
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The border vector is a 16-Longword vector. 

The nth penquere represents the character weeg to represent 
the nth border element. It is the character itself (if <¢ 6 
or the address of a (byte) counted string for the capabil 
These elements are described below: 


code description default 


ty. 


unused space 
right g 


Tower left corner 
lef 
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horizontal 

lower right corner 
tup 


own 
upper left corner 
vertica 

tright 

upper right corner 
tdown 


2 Ss Se CONVO EO 
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+e & O-- -- te HE 8 one 


i Note: “tright’’ means a T with th stem point ing to the right. 
! is is called a left T sn the VT100 manual.) 


'¢ 
: Note how the codes ‘‘o~’ together. 


BIND 
HAP” SEQUENCE = UPLIT BYTE(" <ite-4eieieeeee") : VECTORE16,BYTE); 


4 

: *_a replace each element, one at a time, with the epprepriate special 
character, if one was specified in the fERMTABLE file. 

; Otherwise, store in the default character. 


TAL _BAR ,2C'="); 
@eey. 
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aan ie Ba epee pe 
58 60 MOVAB 98(R6). R11 : 3708 
: 10¢ MOVAB 36 (R65, R7 : 
A OFC MOVAB (R6), R10 ; 
eS | a 
58 0108 MOVAB 264(R6), RB ; 
CLRL (RB) ; 
BRB 2s 3 
46 CLRL_—sINPUT_ARGS : 
166 PUSH g60(R6) 
58 8} 8 v 4(R6), RB : 
100 PUSHAB 356(R6) ; 
14 AE 1DD MOV ZWL $25) 20(SP) ; 
14 Pus 20(SP) : 
000000006 90 CALLS #6 SMGSGET_TERM_DATA : 
6 BLBC TATUS, : 
ue | 7 
OA 03 BLBC Start) 4$ ; 
06 6B BBS 27. (R11), 4$ : 
04 A7 MOVL #45, 4(R7) 3 
BRB 6$ : 
01 CAL RB), a ; 
08 AE 68 ADDL3) #1, (RB), SIZE : 
8 pus ahr) 
000000006 00 CALLS as. LIBSGET_VM : 
AE MOVL STAT : 
7 04 BLBC STATUS, 128 ; 
5 MOVL  4(R7), RO : 
01 «Ad 0104 p MOVs (RB) 8260(R6), 1(R9) ; 
00D1 C6 : 
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P 64 
ESTABLISH_BORDER_VECTOR 984 12: SMGRTL .BUGSRC SRGHINUPD . 832;1 29 28) 
ga 05 00 TSTL (R10) : 2107 ; 
<< BNEC 47 3 Ps 
38 9 oF 8 CLAL (RB) g 3 
1 ~ BRB 4 g 3 
44 ps 0 CLAL INPUT_ARGS : ; 
44 oC PUSMAB jeu ARGS : : 
0104 § dD 00 PUSHL O(RB) : ; 
d OC PUSHL oR : : 
109 ‘e oC PUSHAB 256(R6) ; F 
10 Ae 1 F $C 0 MOVZWL 8449, 16(SP) F : 
0 ae 9F 00 PUSHAB 16(SP) : ; 
000000006 $ pe ate Hy SMOSGET_TERM_DATA : : 
8 4 BL BC sthros. Ss ; 
13 BE QL 308 : 
OA 03 ae € BLBC (R11), $18 : ; 
06 1B E 886 #27, (R11), 518 : : 
1 OA qe b ROVL #43, 28(R75 ; 
A 548 3 
01 d} CMPL (RB), #1 ; 
20 Ak 68 a ary «oot cues. cane | ; 
1¢ «OA? SF PUSHAB 28(R7) | 
24 oF PUSMAB SIZE 
000000006 00 9 f CALLS) = #2, LI * 
3 06 AE D MOVL RO. STATUS 
76 04 ag a BLAC TaTus, $ : 
59 a“ @ ROVL 8cR ay ; 
01 «A? 0104 p 68 moves (RB). "ag60cne 1(a9) 
00D1 6 02 8s 1 sB2 2, 509 cro) 
1 Oa? 0106 D6 9A mOV7BL $260(R6), 28(R7) ; 
6A 05 TSTL (R10) > 2108 | 
BNEQ 55$ ; 
$8 04 CLAL (R8) | 
1 57$ 
66 OA ps CLAL INPUT_ARGS 
44 AE OOF OC PUSHAB INPUT-ARGS 
0104 £8 dd OC PUSHL ORB) : 
po ite PUSML oR 
0100 cs F OC PUSHAB 2 g<R6) 
10 AE 0264 8F 3¢ 06 mOVZ2wi #580, 16(SP) : 
10 AE OF OC Pus 16(SP) : 
000000006 s Fe OG att SAGEGET_TERM_DATA | 
9 EF O¢ BC stirs s, | 
? 00 STL 
08 03 AB E9 OC Biat 1), 598 | 
07 68 1B £0 O BAS 427 (AIT), 598 : 
20 =A 7¢ ¢ A 00 mov7e. #124, 32(R?) : 
A 11 OC BRB : 
01 8 p} 10 CMPL (RB), # 
F 15 90 BLEG_ = 6! 
26 OE ry. 1 ci OC ADDLS #1, (RB), SIZE ; | 
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1-046 ESTABLISH. BORDER. VECTOR - penn ions 42:88:96 — Eehenre bdesacsshenpmats.es2-1 age 38} 
ON Goa puss an : 3 
000000906 00 03 F ce CALLS ae. LIBSGET_vM : : 
6 A D ¢ MOVL RO. STATU : ; 
7 gs AE E CD 60S: BLBC TATUs, 68s ; ; 
5 0 A 0 D1 MOVL 2(R7). R : ; 
01 a9 0104 D6 6 D5 mOvC3 (RB), $260(R6), 1(R9) : ; 
6 ye MOVE (RB). (R9) : ; 
00D1 C6 8 OF BISB2 #2, 309(R6) : ; 
6 £4 BRB 62$ : ; 
20 a? 0106 06 9A OO3E6 618:  MOVZBL @260(R6), 32(R7) : ; 
A 3 EC 62$: TSTL (R10) : 2109 3 
4 E BNEG = 63 : ; 
68 D4 O03F CLAL (RB) : ; 
11 F BRB 65 : ; 
44 AE ps O3F4 638 CLRL —s [NPUT_ARGS : ; 
44 AE OF O03F7 PUSHAB INPUT ARGS ; : 
0104 £8 00 FA PUSHL 0( 3 3 
pp Fe PUSHL R : ; 
0100 (6 OF v4 PUSHAB 256(R6) : ; 
10 AE 0242 F 3¢ 04 MOVZWL #578, 16(SP) : ; 
1 AE 9F 0040A PUSHAB 16(SP) : ; 
SA 0D 9400 PUSHL R10 : ; 
000000006 90 06 FB OF CALLS #6 SHGSGET_TERM_DATA : ; 
4 ED 00416 64$: BLAC STATUS, 72$ : ; 
68 DS 00419 65$: TSTL (RB) : : 
08 13 00418 BEQL $6 ; ; 
OA 03 AB €9 00410 BLBC (R11), 67% : ; 
06 68 18 £0 0421 BBS #27, (R11), 67 ; : 
24 =O B DO 00425 cas: MOVL #43. 36(R75 : ; 
A 11 004 BRB 7 3 r 
01 8 D1 004628 678: CMPL (RB), #1 : : 
F 15 BLEQ 5 3 
28 AE 7. 1 gi ADDL3 #1, (RB). SIZE : : 
34 A? OF PUSHAB 36(R7) ; ; 
C AE OOF PUSHAB SIZE ; ; 
000000006 00 9 F CALLS #2, LIBSGET_VM ; 
04 AE D 4 MOVL = STATUS ; 
76 94 AE CE 46 68%: BLBC status, 68 ; 
59 4 A 4A MOVL 6(R7). RO : 
01 «a9 0106 06 6 4 mOove3 (RB), 8260(R6), 1(R9) : 
69 6 MOVE (RB). (R9) : 
00D1 C6 02 BISB2 #2, 309(R6) : 
D BRB 7 3 
24 «a? 0106 06 9A £ G98: MOV ZBL 8260(R6), 36(R7) ; 
A p 65 08: TSTL (R10) > 2110 
‘ BNEQ = 71 : 
$8 p 69 CLAL (RB) ; 
1 BRB 73 : 
44 AE ODS 71$:  — CLAL INPUT_ARGS : 
44 AE OOF PUSHAB jnput ARGS : 
0104 f dD 7 PUSHL 0(R8) 3 
D 0047 PUSHL R ; 
100 (6 9F 00479 PUSHAB 236(R6} : 
10 AE 244 &F 3¢ i mMOVZwi #580, 16(SP) : 
1 AE OF 83 PUSHAB (SP) : 
5A DD PUSHL R10 3 
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ESTABLISH_BORDER_VECTOR . -0ct- =1382 3; 3§: % Yotcrte suceacismcny mons. B32;1 . (283 
000000006 FB 004 CALLS #6, SMGSGET_TERM_DATA ; 
8 g E i res: L8C «=  TATUS iat ie > : 
6 b $ STL : 
BEQL : 
07 rt ce Ome Orie 7 
O8 3 7c —soBF BR 74$: MOVZBL afo8, (R?) ; 
A 11 004A BRB ; 
01 8 01 00605 758:  CMPL (RB), #1 : 
F 15 004 BLEO : 
2c oA 68 1 C1 OOGAA ADDL3) #1, (RB), LIZE : 
38 A? 9F OOSAF PUSHAB 40(R7) : 
AE 9F 0048 PUSHAB 3 1E : 
000000006 00 9 FB 0048 CALLS . LIBSGET_ vm : 
04 AE DO 0048 MOVL R STA Tus : 
7 0 AE €9 004C0 768:  BLBC STATUS, 4$ : 
59 8 A C4 MOVL 40(R7). R : 
01 «Ad 0104 06 6 4C8 MOVC3 tnd: 8260(R6), 1(R9) : 
69 6 4CF MOVB : 
00D1 C6 2 8 O4b¢ B1SB2 509¢Ro) : 
06 11 O40 BRB r $ : 
28 «A? 0104 06 9A 00409 778:  MOVZBL 8260(R6), 40(R7) : 
6A 03 O4DF 78$: TSTL (R10) > 2111 
06 1 £1 BNEQD 79S : 
$8 D4 dE CLAL = (RB) : 
11 O04E BRB 814 : 
44 OA ps 04E7 79$:  CLRL _—sXINPUT_ARG : 
44 AE OF OOSEA PUSHAB INPUT ARGS : 
0104 £6 DD 004ED PUSHL O(RB) : 
D Oar PUSHL R ; 
0100 C6 OF af SHAB 256(R6) : 
10 AE 0227 BF 3C O04F MOVZWL #551, 16(SP) : 
10 AE OF Oar PUSHAB 16(SP) ; 
SA DD PUSHL R10 : 
000000006 90 : FB CALLS 4&6 SHGSGET_TERM_DATA ; 
6 E g0§: BLBC STATUS, 88$ ; 
6 : C81$:  TSTL (RB) : 
BEQL 225 : 
OA 03 AB E 1 BLBC 3(811), 236 : 
06 68 1B E 14 BBS #27, i nt) 83$ : 
2c COA B OD 18 828 MOVL #43. 44(R75 ; 
A 1 1C BRB : 
01 8 D1 1E 83$: CMPL (RB), #1 : 
F ; BLEG : 
30 AE 68 1 § ADDL3 #1, (RB), SIZE ; 
ec A? OF PUSHAB 44(R7) ; 
4 AE OOF B PUSHAB : 1E : 
000000006 00 Q F CALLS . LIBSGET_VM ; 
4 AE D MOVL rATy ; 
7 94 AE E 84%:  BLBC Hi S, 928 ; 
59  s MOVL 4(R7), R : 
01 a9 0106 ~~ ri mOVC3 (RB). $260(R6), 1(R9) ; 
6 48 MOVE (RB). (RO) : 
00D1 C6 4 B1SB2 sis 509(R : 
2c Oa? 0106 06 9A 5$ MOVZBL @260(R6), 44(R7) : 
6A 05 Bee TSTL ea38) > 2112 
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(RB), (RO) 
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#2, LIBSGET_VM 
RO, STAT 
TATUS, 1088 
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¥ 6260(R6), 1(R9) 
(RB). (RO) 
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000000006 00 
04 


ok 
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0104 08 
00D1 (6 
3c A? 
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03 
2B 
68 
E 
61 
3C OA? 
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5 AX-11 Bliss- 
see Ht CM he ha 

a.8C STATUS, 1188 

BEQL +e 

BLBC (R11), 1158 

BBS #27, (R11), 1158 

WOVE #43, 60(R75 

gsi: 

ADDL3 RB), SIZE 

mans fie) 

CALLS ie. LIBSGET_ vm 

BLBC stirs. 118$ 

MOVL 60( Rd 

moves (RB), "460cR6).. 1(R9) 

8182 nn sos eRe) 

MOVZBL @260(R6), 60(R7) 
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77 11 ZSBTTL ‘SMGSPUT_PASTEBOARD - Sut pus pert board via routine’ 
GLOBAL ROUTI SMG T PASTEBOARD ( PASTEBOARD_ID, P_RIN, P_PRM, P_FF_FLAG ) = 


i FUNCTIONAL DESCRIPTION: 
i This routine is ysed to get access to the gontents of a pasteboard. 
on @ 


V4.0-742 Page 70 
SMGRTL-BUGSRCSSMGAINUPD.B32; 1 #925) 


—Ooe 


—> —) ss 4 


The caller specifies an aren routine. The act routin 
will ~— get called once for each Line in the gee tepeery 
The action routine will be passed a descriptor for that Line 
followed by a user-specified parameter. 
CALLING SEQUENCE: 
ss ret_status.wic.v = SMGSPUT_PASTEBOARD ( PASTESOARO_10.rl.¢ 
% ;PTPRM. rl.) 
9 oP_FF_FLAG.rl.rJ) 
he ACTION ROUTINE: 
38 ret_status.wic.v = RTIN(LINE.rt.dx,PRM.rl.v) 
B38 A false status return means stop sending Lines. 
ss FORMAL PARAMETERS: 
if PASTEBOARD_ID.rl.r pasteboard id 
si P_RIN.rzem.r Address of routine to be called. 
208 P_PRM.rl.r User-specified parameter to be passed 
90 along to the action routine 
908 If omitted, a 0 will be passed as 
909 the user parameter. 


P_FF_FLAG.ri.r A flag (0 or 1). If 1, then the first 
Line passed co the action routine 

will be prepended with a formfeed. 

(If the output device is a terminal 
and if the terminal does not have 

the MECHFORM characteristic, then 

a linefeed will be used instead.) 

If not specified, then no form feed 
will be prepended. 


ee ee 


WN — SO OONOUESWN —O OOO US WN Oo 


IMPLICIT INPUTS: 
contents of PBCB 
IMPLICIT OUTPUTS: 


PEP QLXAE.Q AAAs EPP PELE 


Be Se Se Se Se Se Oe Ge Be Se Se Be Ge Gs Se Se Ge Se Ge Se Se Se TH Se Ge Ge Ge SH Ge SH Se SH Se Se Ge SH Ss SHS He Se Se Se FSH SFOs Se Se Se Se SEOs Seesese 
QS AP Cero S Soe wd a SLs 2 Dow Won s- Gerd eo ote een WN —"OOONOUS UT 
a a a ea a a a ee a ee ee ed ed ed ed ed 


ce ce cc a ee ee oe ee ee ec ec ee ee ee ee ae ce el ee ce eel eel cel el el ceed 


Oe el a kk a aa a ak a tk a wk a a “a a ss a a a 


DODODOODODODOODOODOOOOODOODOVONO 


s none 

% COMPLETION STATUS: 

A SS$_NORMAL Normal successful completion 

74 other Error return passed back by an action routine 
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1 SHGSPUT PASTEBOAAD = Output pestevoerd Ms rout 3001382 $3:28:43 SMGRTL. Bene Sshcntwors.e32;1 oe 28) 


: 19 175 1! 

: 1935 176 J | SIDE EFFECTS: 
: 19 77 «11 

: 19 178 1 | NONE 

: 1938 179 1 is 


8 
SEGLEMINIMUM.UP SGERUMLRUMEUPRATE = ini upgace caleulatio, Souanet9Gs 2U96:25  YAMcHT OLtet=82 ys, worb.e32;1 ag 
BEGIN 
BIND 


w 


PRM = .P_PRM 

FF_FLAG = .P"FF_FLAG; 

LOCAL 

HA ad : VECTOR(C512,BYTE), ! eee TEMP 

BUF _DESC : BLOCK(8,BYTE), ! Descriptor for buffer to be 
assed to the user 

ACTION_PRM alue of action parameter 

ACTION-FF_FLAG, 

PBCB : REF SPBCB_DECL, 


wCB : REF $WCB_BECL; 


VF wr 


BUILTIN 
NULLPARAME TER; 


OONO VUES WN" OVOOVNOUNE WO 
ea ed ee ed et et nt ow od 4 ss = ss 2 
Oc 
se 
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SPanaSSSlPSRoes 


OWN 


wre 
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SS os ss SS SS SS Ss Ss YS YS 
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ror 
hRororornonrn 


BORDER_TRANS : y 


am tense lei eeeee’)); 


4 
Temporary fix: see 


SMGSSMINIMUM_UP S$ NIMUM_UPDATE = Minimum update calculatio b-Jan-19 5 AX-11 bis o7 742 Pa 3 
iebte = SncePuy PASTEBOARD = Output pastedoard vis rout mets 1 q): 38: % SMGRTL.B RCSshcAINUPS, 832;1 9 053 ; 
1967 SSMGSVALIDATE_ARGCOUNT (2,4); ; 
Hs an 2 
44 8 ! Get the pasteboard control block from the pasteboard id. : 
197 11 ‘ 
1978 \§ penenent pocet Pestenanne .J0.70c8); ; 
1998 lz 1 ° 
1278 15 i Get the value of the action routine parameter. 3 
197 3 § * 
1999 18 IF 7NULLPARANE TER(S) 3 
19 1 THEN ACTION_PRM=0 “ 
po 1 y ELSE ACTION_PRM=.PRM; : 
1988 ¢ $i ; 
19 ! Get the value of the formfeed flag. : 
138 ap : 
19 $ IF NULLPARAMETER(4) 3 
19 THEN ACTION_FF_FLAG=0 : 
i 9 3 ELSE ACTION_FF-FLAG=.FF_FLAG; : 
1 0 '¢ : 
! ¢ 3! _Set up the WCB reference. ‘ 
1 3 
: ; sen facnvens A satete : 
1 3 
1 3 
; 


Ses esessssSsSs33S333 


Be Se Se Ge Be Se Se Se Ge Se Se Ge Se Ge Se Fe Ge Ge Se Ge Ge Se Ge Fe Ge Ge Ge Gs Ge Ge Ge Se Fe Ss Ge Se Ss Se Se Ge > Se Se Se Se Ss Oe Se Os Oe Be ee Se Se Se Gees 


8 
9 
40 IF seecerrece A We em? 
el THEN PBCBCPBCB_A_RBF J=TEMP_BUF ; 
rk '¢ 
re : Set up the descriptor for our buffer. 
4 . 
re BUF _DESCCOSC$W_LENGTH) > psehnce W_NO_COLS); 
$8 BUF _DESC pareepctAssy cCASS “3 
19 4 BUF _DESC thre hs te DSCSK-DTYPE-T 
i $1 BUF “DESCCDSCSA_POINTER }: -PACBCPBCB_K “her; 
1 '¢ 
i 3 3 i Call the action routine once for each Line in the pasteboard. 
1 5 
se Bg, INCR ROW FROM 0 10 -PBCBCPBCB_B_ROWS)-1 DO 
18 ; BEGIN ! Output a row 
i BIND 
6 WIDTH = WCBCWCB W_NO COLS) : WORD 
§ 36) TEXT = ,WwCBCWCB_A_ TEXT Bure. ROW* WIDTH : VECTORC BYTE), 


SAGSSAINIMUR_UP SMGSSM num yepare - Minimum update calculatio be Jan-1985 3: 56: 23 Here atu bontarisecalwies. B32;1 


SMGSPUT_PASTEBOARD - Output pasteboard via rout 2-0ct-19 
3 4 63 ATTR = .WCBCWCB_A_ATTR_BUFJ+.ROW*.WIDTH : VECTORC BYTE), 
: 8 5 be RBF = PECBLPBCB- “ALR rors : VECTORE (BYTE: 
3 ; 6 BIND ROUTINE 
5 5 8 ACTION_ROUTINE = .P_RTN; 
: 1 1 'e 
: 8 § re Copy the appropriate row into the record buffer. 
: 7 
: 5 a CHSMOVE (.WCBCWCB_W_NO_COLS), TEXT, RBF); 
; ? 
3 “ "seen the attribute buffer looking for any border elements 
; 2059 re i If we find one, change its representation in the record buffer 
3 Bee 7 ! to something more reasonable. 
$003 ? i. 
; $08 ; INCR COL FROM 0 TO .WCBLWCB_W_NO_COLSI-1 DO 
3 2044 4 BEGIN + recor buf 
3: 2045 4 BIND CHAR = COL BYTE; 
3 nee 5 4 bp TER iat a hase = ATTR M_BORD ELEM OR ATTR_M -.USER_GRAPHIC; 
: 204 4 IF (.ATTR cOuy AND BORDER-MASK) REQ 0 
; 2048 THEN 
: 2049 88 14 THAR 
; 2050 89 THEN nar C0 ob }=4¢ Cte! 
: Bas + eee RBFL.COLJ=.BORDER_TRANS(.CHAR<0,4>); 
: 038 % END; ' Scan record buffer 
: bee 94 STATUS=ACTION_ROUTINE (BUF DESC + eae PRM); 
3 096 95 IF NOT .STATUS THEN RETURN .STATU 
: $33 4 END; ! Output a row 
3 960 99 2 RETURN SS$_NORMAL 
3 2062 1 1 END; ! Routine SMGSPUT_PASTEBOARD 


-PSECT _SMGSDATA,NOEXE, PIC,2 
28 28 28 28 7C 2B 7C 28 2B 2D 2D 28 7C 20 20 00034 SOROER TAF 
28 00043 : 


\ j[ewnmsel ei eeeeel 


«PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
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1-046 SMGSPUT_PASTEBOARD = Output pasteboard via rout 2-0ct-1984 12:58: SMGRTL .BUGSRC JSMGMINUPD .B32; 1 (27) 


8 1 BLEQU 18 ; 
50 000000006 gf 06 ROVL #SMG$_WRONUMARG, RO ; 
50 04 Bt 06 1$ HOVE QPASTEBOARD_ 1D, RO + 2212 
000000006 00 D1 CHP R » PBD_L_COUNT F 
08 000000006 E BBS RO, PBD_V_PB_AVAIL, 3$ : 
98 000000006 &F 60 28: ROVL #SMG$_IRVPAS“ID, RO : 
50 0000000060040 po 3$: OVE PBD A_PaCBROJ, PBCB ton 
gf 1F BLSSU : 
oc ac D3 TSTL 12¢AP) : 
04 BNEO : 
6 ps 4$: CLRL ACTION_PRM > 2219 
bE oc 6 po 5$: MOVL § @P_PRM, ACTION_PRM : 3220 
04 6¢ és: CMPBCéCA), 4 + 2226 
1F 4 BLSSU7$ ; 
10 AC D5 TSTL  16(AP) : 
4 12 BNEO ; 
i ps 7$: CLRL ACTION. FF FLAG + 2227 
51 1 e b9 $: MOVL FF_FLAG, ACTION_FF_FLAG : 38 
36 08 A p $: MOVL (PacB), we ; 
00FO =6¢ MOVAB 49(PBCB) R9 + 2240 
9 ° TSTL (ROD : 
4 BNEG 108 : 
69 C AE OO MOVAB TEMP_BUF, (R9) + 2261 
04 AE 6 A B 10$:  MmOVW 6(uCB) BUF _DES + 2267 
06 AE 010E BF B 79 MOVW #270, BUF_DESC+ > 2249 
08 AE 69 p MOVL  (R9) BUF DESC #4 : 2250 
SA SF AO 9A MOVZ7BL 95(PBCB),~R 3 2256 
57 1 F MNEGL #1, R > 2296 
9 BRB 15$ ; 
50 06 AB 3C 11$: MOVZWL 6(WCB), RO : 2262 
0 57 C4 MULL2 ROW, RO ; 
51 8 A C1 ADDL cute) RO, RI ; 
58 C AO CI ADDL 2(weBs, Rb RB : $3 
00 89 1 6 Ad 28 ve 6(wcB) (R15, a0(R9) : 2226 
06 ag C MOVZWL 6(WCB). R3 + 2282 
cE MNEGL #1, COL ; 
51 9 128:  ROBL3 ss (RO), RI $2 
co +t 624 ‘ 118 seen #192 ; 338 
10 19 CMPBs«(R1), «#16 : 2288 
5 1 BLEQU 13 ; 
61 A MOVB #42, (R1) + 2289 
1 BRB 14 ; 
50 61 04 F 138:  EXTZV #0, #4, (RI) Ro + 2290 
1 00000000'EF MOVB BORDER TRANS CRO » (RI) : 
DA 2 53 F 148: AOBLSS R3, COL, 12 ; 3386 
6£ pd PUSHL ACTION PRM ; 
08 ar F PUSHAB BUF _DESC ; 
08 BC 02 FB CALLS #2, "@P_RIN ; 
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= Snapshot pastebosrd | nto @ -Oct-1 


SSNAPSHOT = Srna abet bab TeBsaRe 10) into a file’ 
GLOBAL nou INE SMGSSNAPSHO 


5 
FUNCTIONAL DESCRIPTION: 

If the jute Sry ice is being control ted by RMS 

(i.e. is a file or unknown terminal) 

then catt inn this routine causes a snapshot 

of the current fieteneore to be taken and output 

to the output 

Pasteboard Ccaial has no affect on this routine. 
CALLING SEQUENCE: 

ret_status.wic.v = SMGSSNAPSHOT ( PASTEBOARD_ID.ri.r) 
FORMAL PARAMETERS: 

PASTEBOARD_ID.ri.r 
IMPLICIT INPUTS: 

contents of PBCB 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION STATUS: 


ASTEBOARD_ID ) 


pasteboard id 


SS$_NORMAL Normal successful completion 

SMGS_NOTRMSOUT (success) no action taken since output is 
not being controlled by RMS 

RASS$_xy2z Errors from RMS 


SIDE EFFECTS: 


-0-742 
INUPD 


RUM og ot - Minimum updat err B-san-198s q}: 2¢: $3 Sneath. dutta 
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SMGSSNAPSHOT = Snapshot pasteboard into a file “Oct-19 2 
4) BEGIN 
EXTERNAL LITERAL 
SMG$_NOTRMSOUT; ! Not RMS output 
LOCAL 
STATUS, 
PBCB : REF SPBCB_DECL; 


SSMGSVAL IDATE_ARGCOUNT(1,1); 

te 

Get the pasteboard control block from the pasteboard id. 
SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


‘+ 
: Do nothing if output is not being controlled by RMS. 


WIN $98 ODNO MEA OOO ~OUE 


IF NOT .PBCBCPBCB_V_RMS) 
THEN RETURN SAGS_NOTRMSOUT; 


ar 


'¢ 
Output this pasteboard using our soecial RMS output routine. 


rm PROPRIO o 
AFI —“SSSNO oP CI OOS NO AP NMOS 44 


et et elt lt eel elt lt ls el cel ll elt elt cals cel cl cl cals lt elt cel els cl calls cel calls ll lt cal 


6 
$9 
68 
7 383 
: ; 71 2 STATUS=SMGSPUT_PASTEBOARD(.PASTEBOARD_ID,RMS_RTN,PBCB) ; 
: 3 IF NOT .STATUS THEN RETURN .STATUS; 
: He RETURN SS$_NORMAL 
; $ 39 32 1 END; ! Routine SMGSSNAPSHOT 
.EXTRN SMG$_NOTRMSOUT 
00 44's -ENTRY SMGSSNAPSHOT, Save nothing : 2303 
SE 04 C2 C00 Svat2 oP : 
01 9 chip (AP), #1 ; 2352 
50 000000006 &F BO ( OA MOVL #SMG$_WRONUMARG, RO : 
50 06 Bc 00 12 18: MOVL QPASTEBOARD_ 1D, RO : 2358 
000000006 00 $0 D1 9001 Fhe; «AD. PBD_L_COUNT : 
08 000000006 ; if ¥ oss. 28° ay AVAIL, 3$ : 
98 000000006 &F 60 28: ROVL #SMG$_IRVPAS“1D, RO 
$f 0000000060040 i \ 38: ROVE PBDA_PBCBLRO], PCB on 
08 00p0 + C0 E C ne 808(RO), 4$ : 
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1-046 SMGSSNAPSHOT = Snapshot pasteboard into a file 2-0ct-1984 12:58:19 CSMGRTL. BUGERC shears. 832;1 Poge 42) 1 
50 00000000G 8F D0 0004 MOVL #SMG$_NOTRMSOUT, R : 
,ehio fap Foes 
0000 CF 9F 0004C  ~—S PUSHAB <n 
04 ac OD PUSHL PASTEBOA 3 
FEBB fF 4 8 CALLS a3 + anOseUT. PASTEBOARD é 
: it a a : He 
be 8 H 5$: RET : : $334 
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INIMUM_UPDATE = Minim date calculatio i -1985 21:56:25 AX-11 Bliss-32 V4.0-742 Pa 0 
MGSSSET_ATTR poder nace eats wits tt #3:28:43 $s P 9 369 
1 


~ATTRIBUTES_ON -0c t-1984 SMGRTL .BUGSRC JSMGMINUPD .B32; 1 
ZSBTTL "SMGSSSET at 


6 
: 2141 2377 IBUTES_ON' 3 
: 148 4: | GLOBAL ROUTINE SMGS$SET IR ioUTES ON ( ; 
: 216 79 1 PBCB : REF $PBCB DECL, ; 
: 2144 0 1 FLAGS : BITVECTOR : 
3; 21465 1 )s 3 
; 108 § 1 lee 3 
; 147 ; i FUNCTIONAL DESCRIPTION: : 
> 2149 . $3 This routine generates the escape sequences turning on ; 
: ; ? § ! } attributes such as boiding and blinking. : 
: $13 8 1 | CALLING SEQUENCE: 
: 2154 90 1: ret_status.wic.v = SMGSSSET_ATTRIBUTES_ON (PBC ; 
; 139 91 FLAGS. rl.v) 
; 133 3 1 | FORMAL PARAMETERS: ; 
: 139 95 1 PBCB ; 
: Agy 8 ! FLAGS. rl.v flags specifying which attributes to turn on : 
: 216 98 1 | IMPLICIT INPUTS: : 
3; 216 99 1! 3 
1 a 0 (eee : 
; 166 40¢ 1 | IMPLICiT OUTPUTS: : 
3: 216 4035 1! : 
1 a 0 : 
: 190 406 1! COMPLETION STATUS: : 
fp Re ; 
: 198 409 1! SIDE EFFECTS: 
3 2176 410 1! : 
> 2175 411 1: NONE ; 
: 3176 412 1 i= ; 


SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE - Minimum update calculatio Jan-1985 21:56: AX-11 Bliss-32 V4.0-742 Pa 1 
wits snesseet T_ATTRIBUTES_ON ~ : bosenetg 4 $5 :38:% SMGRTL .BUGSRC JSMGMINUPD B32; 1 959) 


SEGIN 


7 
7? 


STATUS; 
BIND TT2 = PBCBCPBCB_L_DEVDEPEND2] : SBBLOCK; 


1 
' Renditions ryquices, that the AVO (ADVANCED VIDEO) terminal 
! characterist set. Even if the TERMT pide F ersee 


' show that the KF has the BEGIN_BOLD ggpenst 
the terminal might not have the advanced video pb on. 


000 
Wwr—9O0 


IF .FLAGSCATTR V_REND_ GRAPHIC) 
oe rigbttas0 -AVO) OR NOT .TT2CTT2$V_ANSICRT)) 


SEMGSGET _TERM_DATA(BEGIN_LINE_DRAWING_CHAR); 
IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN BEGIN™ 
STATUS=SRGSSOUTPUTC OCD. .Parerracet.§ CAP _LE NGTH] 
.PBCBCPBCB_A_CAP-BUFFERJ); 
I NOT ~STATUS THEN RETURN .STATUS ~ 


Dk a a ad ad od dd 
Shek ek- eee eee eee ee ake ee ee ee ee 


Be Be Se Oe Be Se Oe Ge Bs Ge Se Se Se Se Ge Gs Ge Se Se Fs Ss Ss Se Se Ss SF Ge SFOs Os Os Oe Os Se OF Ss BH Ss OF Os Se OF SS Os 05 Os Oe SESE Ss HOE Se Se Sees 
RIPIPRINPININGPININIMPIANITADINININININININININNINININININININININININID 
td at od ot od = POOOOO 
D at at el te et et et 
, kt te et et ek et 
co mse 
RIE BS FMA ANMININIGE & H&E MMM AMGPIPINININININW SE FL HS 


BVLOSSB IRAE 


'¢ 
Set and output the string to set the correct attributes. 


IF of LAGSEATIR V_REND BOLD) 


SNGSGET. TERM_DATA(BEGIN_BLINK); 


IF_.PBCBCPBCB_!_CAP_LENGTH] NEQ 0 
THEN GIN" 


46 


BE 
STATUS=SMGSSOUTPUT(. Pec, .Oete 
If NOT .STATUS THEN RETURN OSTA 


0 
1 AND (TT T1280 AvO] OR NOT .TT2CTT2$V_ANSICRT)) 
§ 448 SSMGSGET_TERM_DATA(BEGIN_BOLD); 
5 450 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
g 451 THEN BEGIN™ 
43 STATUS=SMGSSOUTPUT(. PBCB, . PBCB PBCB_L p-LENGTH} 
B 45 PBCB- ire BUFFERIS; 
3 434 IF NOT .STATUS THEN RETURN STATUS; ~ 
1 4 END; 1 
5 39 IF .FLAGSCATTR_V_REND BLINK) 
4 13 AND’ (.T rat Tres _AVO) OR NOT .TT2CTT2$V_ANSICRT)) 
5 460 THE 
6 46 
8 
9 
0 


SPGSSAIN LAUR uP 


BUTES_ 


woo~noe 


-Oct-1 
spat R_V_REND_REV) 
iM ast ~AVO) OR NOT .TT2CTT2$V_ANSICRT)) 
SSRGSGET ~TERM_DATA(BEGIN_REVERSE) ; 
If _.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 


THEN 
SFATUS=SMGSSOUTPUT(. PBCB,. PBCBEPBCB_L_CAP_LENGTH] 
. PBCBLPBCB_A_CAP-BUFFERJ); 
IF NOT «STATUS THEN RETURN .STATUS; 
END; : 


IF_ FLAG Aestarin V REND UNDER] 
AND (.T 


TT2$0_AVO] OR NOT .TT2CTT2$V_ANSICRT)) 


THEN BEGIN 


PPA MIE 5° 


RETURN SS$_NORMAL 


OO-SO 
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SSMGSGET_TERM_DATA(BEGIN_UNDERSCORE) ; 


IF ,PaCBLPBCB. L_CAP_LENGTH) NEQ 0 
STATUS=SMGSSOUTPUT(.PBCB,. pace PBCB_L_CAP_LENGTH) 
BCBLPBCB-A~CAP-BUFFERJ); 
IF NOT «STATUS THEN RETURN. STATUS; ~ 


! End of routine SMGS$SET_ATTRIBUTES_ON 


PDATE = a vetonm update calculatio S43 gone 1387 #3: 26: $3 yeni Bliss-3 


SNGRTL BUGSRCISMGMINUPS. 832;1 


00FC 00000 -ENTRY SAGSSSET ATTRIBUTES _ON, Save R2,R3,R4,R5,- 


4444 F 
000000006 09 


57 
‘ 
f 
i 
i 
53 


SMGS$SOUTPUT, R7 
MOV SNGSGET_TERM_DATA, R6 


- P 3 
t -Jan- :56: AX-11 Bliss-32 v4.0-742 age 
Fee e rele ee TRAY DUTES ont imum update calculatio eet HS Ce ee he SS el et ah 
6 = = 
BR BRP Bag rm : 
BLBC . : 
HE Bf i: _— 
PUSHL (R2) ; 
_— BD PUSHL (88) ; $e 
? Pe CALLS i, SMGS$SOUTPUT ; 
5 08 MOVL RO, STAT $ tases 
4 é Stee ; AGS *10$ + 2445 
iF 08 AC F9 4$: BLBC FLA tale? ss i gobs 
- $s 4 } Bre (ra), 10$ ; 
$5 8 3 5 5 BBVA (Rd), R3 + 24438 
1 C 5$: MOVAB 4 “ é 
oe OFC 7 TSTL 2(R2) ; 
° BNEO & 
33 9 ghee gs 
1 . 
: LRL _—sINPUT_ARGS : 
‘ AE : - PUSHAB INPUT ARGS ; 
0104 DD PUSHL 0(R2) ; 
spp PUSH BS a , 
10 AE 4 af i 98 MOVZWL #445, 16(SP) ; 
Fe C5 OF OOOAT PUSHAB 2S2eR>) 
ws 4 A CALLS rT SGSGET_TERM_DATA 
‘ PRBS re: RP tite tS so 
i BaP Pest $05 «R2) : 433 
sat é BD af PUSHL CR) ; 
4 3 CALLS #3, SMGSSOUTPUT 
4 b TATU ; 
§f D BA MOVL «=O i § US tae 
51 E BD 9$: BLBC 3s ST. Ws 4 oe i 2654 
rv = ¢ Ef DOC ina BBS 455 FLAGS. 11$ ; 2459 
. rf Hy 3 DC BLBS (Rd) 168, Baa 
53 193 C 3 OCD 11$: MOVAB 4(RE), R ; 
bore g 0D TSTL (R2) ; 
4 ° BNE 
3 8F Bbopa BREECH 
} Py 
:  CLRL INPUT_ARGS ; 
oe AE 4 OF - PUS JNPUTSARGS ; 
0104 ( DD OO0E PUSHL ; 
P OOOE PUSHAB 86(R2) 
10 AE 188 bf mOVZUL tig ton ; 
10 AE OF ; 
ot Sans Bs 5 Sada reon oa 2 
F EP OOOrC 138: URE’ STATUS. 198 ~~ 
§ } Ot "  BEQL 188 : 
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soa TERM_DATA 
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SMGSSOUTPUT 
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SMGRTL .BUGSRCJSMGMINUP 


FPEPTAINIAUR uP snasenii 


3; Routine Size: 


INIMUM 
ET_ATTRIB 


452 bytes, 


UPDATE 
IBUTES_ON 


50 
50 


Routine Base: 


ig 
A 


-SMGSCODE + 1381 


- Minimum update calculatio bea 


-Jan-1 
“Oct-1 


dhe 2:38:73 — UsMentuSoutsac 


BLBS 
MOVL 
ET 
MOVL 

RET 


STATUS, 27$ 
STATUS, RO 


1, RO 


§sMGAINUPD x 2; ;1 


in 


NGSSMINIMUM_UP SHGSSMINIMUM UPDATE = Minimum update calculatio b-Jan-1985 $4:36' 8 


SMGSSSET_ATTRIBUTES_OFF 


MEW 


oo 


VEN $$ O ONO MNE UN =O OCOVNOUS WO 0 


FUSUSUSISISISIN 


WAP IPOIRINININUIPINNIND ee 


Ah tbe db dh sh shesh sh sh sbeah ah ah ah al al ah eal al 


Rorornons 
WALA 


-Oct-1 


ZSBTTL 'SMGSSSET ATTRIBUTES OFF’ 

GLOBAL ROUTINE SAGSSSET_ ATTRIBUTES OFF 
Pace : REF $PBCB_DECL, 
_ FLAGS : BITVECTOR 


'ee 
| ne, DESCRIPTION: 


This routine generates the escape sequenc s turning on 
attributes such as bolding and blinking. 


i CALLING SEQUENCE : 


ret_status.wic.v = SMGSSSET_ATTRIBUTES_C F (PBCB, 
LAGS.rl.v) 


: {FORMAL PARAMETERS: 


IMPLICIT INPUTS: 
NONE 

IMPLICIT UUTPUTS: 
NONE 

{COMPLETION STATUS: 


: { SIDE EFFECTS: 
NONE 


AX-11 Bliss-3 
SMGRTL .BUGSRC 


§shGnI NOPD .B32; ;1 


PBCB 
FLAGS.rl.v flags specifying which attributes to turn on 


SMGSSAINIMUM_UP 
oO 


SeIS 


PPE ESE EES 


IR =O CONOUNE WI“ OOONOUE WO 


FUSUSVSUSUSVSVSUSVSUSOOSUSISISISIS 


a 4 HOO 
OWOBNOVE WN —“OOBNOUS WO 0 


PAPAS 


rerorurnoforerorfnnon 


cc 
rab Ab ab Ab AD AL Ab AL AL AL AL 


SHLSAF 


RNIN RRS 


PUPP AAAIA AAI 
SSO 
NOUS WINS 


UYNVTRSRES gyftimim vodate catcutarto, Bostnntgey 23:56:25 YACHT OLIEEE EE WSO a. 


BEGIN 

LOCAL 
STATUS; 

BIND TT2 = PBCBCPBCB_L_DEVDEPEND2) =: SBBLOCK; 

"end: tions eyevices that the AVO (ADVANCED yi REO? terminal 
cterist it be set. Even if the TERMT ABLE gare 


! show that the terminal has the BEGIN TROLDe capabil 
a the terminal might not have the advanced video pb, on. 


'¢ 
i Get and output the puree 9 see to reset attributes to normai. 
i We used to assume that END BOLD br iogs back normal attributes. 
} _Now we rely on BEGIN *RORMAC’ RENDITIO 


F_.TT2CTT2$V_AVO) OR NOT .TT2CTT2$V_ANSICRT) 
TF TWEN BEGIN 


X1F_ XDECLARED( SMGSK_BEGIN NORMAL RENDITION ) 
SSMGSGET_TERM_DATA(BEGIN_NORMAL_RENDITION); 


XELSE 
SSMGSGET_TERM_DATA(END_BOLD); 


tFI 
af ich kein” L_CAP_LENGTH] NEQ 0 
STATUS=SMGSSOUTPUT(. POS. ARSEES PBCB_L_CAP_LENGTH] 


PBCB- Ae CAP~BUFFERS; 
IF NOT .STATUS THEN RETURN .STATUS;~ 


END; 
RETURN SS$_NORMAL 
END; 
000 ENTRY SNGSSSET LATTRIBUTES_OFF, Save R2,R3 
5 10 ¢ SUBL2 #16, SP 
; 06 ac D MOVL C6, R2 
04 63 A 03 €£ Bas "8 $9(R2), 18 
6A 3A 3 BLBS {r2), 4$ 
53 108 ~=¢ MOVAB 4 (RES R3 
OFC ¢ ; TSTL 2(R2) 
BNEO 
$3 9 CLRL R3) 
BRB 


PERENMUNLUP SERNA AEDTE tina woste ctcutaon Fatetaes G13 HL Man MAD an, 


: 


(38 


be AE OF Boose “8 Buhay | [NpUT Anes 
0104 { dD ; PUSHL yee : 
; P Boose PUSHAB 386(R2) ; 
10 AE O28 af ¢ MOVZWL #595, 16<SP) : 
10 Ae OF 7 SHAB 16: : 
OOFC F A PUSHAB 252(R2) : 
000000006 00 FB CALLS #6 SHGSGET_TERM_DATA : 
s 1 E 4 BLEC =: STATUS, : 
é 03 48 3$ TSTL + 2567 
A BEQL 4 3 
0106 C2 Dd 0004 PUSHL 260(R2) : 3570 
§ DD PUSHL (R3) : 2569 
DD PUSHL Re ; 
0000v CF FB 4 CALLS #3, SMG$$OUTPUT : 
3 E9 00059 BLBC STATUS, 5$ + 2571 
0 1 BO sc 4$: MOVL #1, RO : 2575 
4 O005F 5$: RET : 2577 


; Routine Size: 96 bytes, Routine Base: _SMGSCODE + 1545 


MGSSMINIMUM_UP SMGSSMINIMUM_UPDATE - Minimum update calculatio 99-Jan-1985 21:56: AX-11 Bliss-32 V4.0-742 Pa 89 
egte RMS_RIN = Action routine used to Output a Line et Fi $3:38:% USMGRTL BUSSRCTSMGMI NOPD .B32;1 9° 34) 
; § 78 1 ZSBITL “RMS_RIN = Action routine used to output a Line with RMS’ 

: 7 ROUTINE RMSTRTN ( P_LINE_DESC, P_PBCB ) = 
5 ; } | | FUNCTIONAL DESCRIPTION: 

; i § ! | Outputs a Line to the output file using RMS. 

i 38 5 CALLING SEQUENCE: 

: 2355 ; : ret_status.wic.v = RMS_RTN ( P_LINE_DESC.rt.ds, P_PBCB.rab.r) 

: 3 5 | FORMAL PARAMETERS: 

: 2359 591 1 / P_LINE_DESC.rt.ds Address of fixed Longee string descriptor 

3 235 ' } for Line to be output. 

: § 534 : P_PBCB.rab.r Address of pasteboard control block 
: 2364 596 1 | IMPLICIT INPUTS: 

3: 2365 597 1! 

3: 2566 598 1! contents of PBCB 

: 7 599 1! 

3 8 600 1 ! IMPLICIT OUTPUTS: 

3; 2369 601 1! 

3; 2370 o0¢ 1! NONE 

: 71 605 1! 

3 i 604 1 ! COMPLETION STATUS: 

3: 237 605 1! 

3 2374 O06 1! RMS$_NORMAL Normal successful completion 
: ee ret ' RMS$_xyz Errors from RMS 

: 375 609 1 | SIDE EFFECTS: 

3; 2378 610 1! 

3 +44 611 1! NONE 

; 2380 2612 1 !<- 


OOCDBNOA EO “OO CONOUE Ww 


ARRON RRRUIURS ee 
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SAGSSRINI RUM UP oe a ay ot DATE = Minimum update calculatio B-Jan-19 5 AX-11 Bliss-3 
1-046 “ to 7 Be 92:88:59 


LRTN = Ac€ routine used to output a Line -0ct-19 SMGRTL .BUGSROE 
BEGIN 
BIND 
LINE_DESC = .P_LINE_DESC : BLOCKS BYTE), 
PACE = iP Pace: : $PBCB DECL, 
SMGRAB = .PBCBCPBCB_A_RAB) $RAB_BECL; 
'¢ 
Output this Line using RMS. 
SMGRAB[RABSW_RS7 = .LINE ~ESCEDSCEN LENGTH); 
SMGRAB(RABSL _RBF = .LINE-DESCCDSCSA-POINTER); 
RETURN $PUT(RAB=SMGRAB) 
1 END; ! Routine RMAS_RIN 


-EXTRN SYSS$PUT 
0000 Boas MNS_ATms vOne geve nothing 


1 06 ac OD MOVL P_LINE DESC. RI 

0 08 ac D MOVL “PBCB- R 

0 OOE§C + =CO OD A MOVL  236(ROS, RO 

32 rts) 61 8 F MOV (R1), 34(R0) 
Ad Al 00 13 MOVL &(R15, 40(RO) 
50 0D 0001 PUSHL RO 
000000006 00 01 FB OOO1A CALLS , SYS$PUT 
04 00021 RET 


34 bytes, Routine Base: _SMGSCODE + 15A5 


; Routine Size: 


§smcninuPd. 832;1 
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36 


SMGSSMIN_UPD™= Calculate minimum update sequenc So Janct9es #5 :38:% YShorte BueERe 


ZSBTTL "SMGSSMIN_UPD = Calculate minimum update sequence and output’ 
GLOBAL ROUTINE SAGSSMIN_UPD ( 
;, PBCB : REF SPBCB_DECL 
= 

FUNCTIONAL DESCRIPTION: 

Obsolete. 

SMGSSOUTPUT_PASTEBOARD should be called instead. 

If this or that bombs out, you can use the old original temporary 

routine that Rich wrote. It's called SMGSSOLD_MIN_UPD. 
CALLING SEQUENCE: 

ret_status.wic.v = SMGSSMIN_UPD ( PBCB.rab.r ) 
FORMAL PARAMETERS: 

PBCB.rab.r Address of pasteboard control block. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 


NONE 


§ V4.0-742 
SMGMINUPD 832; 1 


10 
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1-046 SMGSSMIN_UPD = Calculate ainiaus update sequenc meet $5 :38:% USMGRTL BUGSRCTSMGHGNUPS.B32;1 . (395 


; 24638 667 BEGIN 

; 2439 208 LOCAL 

3 re og WCB : REF SWCB_DECL; ! Address of Window Control Block. 

: 2446 671 WCB = .PBCB CPBCB_A_w(B); 

+ 264 676 IF .PBCB CPBCB_wW_CAST_CHANGED_ROW) NEQ 0 

> 2446 67 THEN 

> 2445 674 BEGIN ! Normal case 

3; 244 675 LOCAL 

: 24 676 LC =: REF VECTOR C,BYTE), ! addr of Line characteristics 
: 24468 67 ' vector for text buffer. 

3 244 ore LCS : REF VECTOR C,BYTE), ! Addr of Line characteristics 
3; 2450 67 ! vector for screen text buffer. 
3; 2451 ret B_OFFSET, ! Byte offset to begining of Line of oferest 
: t2§ oe) WIDTH; ! Extracted copy of .WCB CWwCB_W_NO_COLS 

3 2454 6 : WIDTH = .WCB CWCB_W_NO COLS); 

> 2455 684 B_OFFSET = (.PBCB-CPBCB Ww FIRST _CHANGED_ROW] - 1) © .WIDTH; 

> 2456 685 LC = .WCB CWCB_A_LINE CHARI; 

; 2457 686 LCS = .WwCB CWCB-A_SCR_CINE_CHAR); 

; 2458 687 

; 2459 688 '¢ 

; 2460 689 : Try to narrow the range of Lines that claim to have been changed. 
3; 2461 690 ! If we can collapse it to 1 or less, scrolling is not feasible. 
3 re | 691 ! As @ by-product of doing these tests, the range of Lines that 

: 246 69 : may have changed will possibly be narrowed, making minimum 

3 2464 69 ! update’s work faster. 

3 se? $38 ! First try to refine the ‘first changed Line’’ downwards. 

3 ae? 696 WHILE .PBCB proce uF inst CHANGED _ROW) LSS 

; ret 044 -PBCB CPBCB_W-LAST_CHANGED_ROw) 

; 2470 699 4 BEGIN ! Collapsing loop 

3 2471 700 4 le 

: 267 701 4 ! If this Line is the same, with respect to the text buffer, 
3: 247 2702 4 ! the attribute buffer, and the Line characteristics vector, 
3 2476 2703 4 ! then it is not changed -- drag down the first changed Line by 
3 of? sips ? } ® 

3 247 2706 4 IF CHSEQL ( .WIDTH, .WCB CWCB_A_TEXT_ BUF) + .B_OFFSET 

; 2478 707 4 -WIDTH, .WCB CWCB"A-SCR_TEXT_BUF) + .B-OFFSETS 

3 2479 708 4 

: 2480 709 4 AND 

: 2481 710 4 

3 24 $ 711 & CHSEQL ( .WIDTH, .wCS CWCB_A_ATTR_BUF) + .B_OFFSET 

; 48 ats ‘ «WIDTH, .WOB CWCB"A-SCR_ATTR_BUF] + .B-OFFSETS 

3; 2485 714 4 AND 

3: 24 715 4 

3; 246 ay 4 LC -PBCB PPOCE.U_F IRST CHANGED ROW } EQL 

: 2488 717 4 LCS C.PBCB CPBCB_W_FIRST_CHANGED_ ROW 

: rt 44 8 4 

: 24 71 4 THEN 

3: 2491 720 BEGIN ! Advance one row 

3 249 721 PBCB CPBCB_W_FIRST_CHANGED_ ROW) = 

3 249 7 § -PBCB CPBCB_W_FIRST_CHANGED_ROW]) + 1; 
3 2494 7 B_OFFSET = .B_OFFSET + .WIDTH; 


10 
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ieee SMGSSMIN_UPD™= Calculate aininun update sequenc ae 13:38:43 YEMGRTL BUGERCSSMGAINGPS. B32; 1 9 595 
; 2495 4 § END ! Advance one row 
i 2496 ie 2 LSE x 
: 249 7 8 4 EXITLOOP; ! Ist refined downward as far as possible 
3 tgs f END; ' Coltapsing Loop 
; 300 155 ‘4 
: 4 f , } Now try to refine ‘‘last changed Line’’ upward in a similar manner. 
; 508 t g B_OFFSET = (.PBCB CPBCB_W_LAST_CHANGED_ROW) - 1) * .wIDTH; 
: 05 734 WHILE .PBCB prece WF inst CHANGED ROW? LSS 
; 88 73 -PBCB CPBCB-W-LAST_CHANGED_ROW] 
: 2508 737 4 BEGIN ! Collapsing loo 
i 5308 ‘bear fa ose 
3 2511 740 4 i If this Line is the same, with respect to the text buffer, 
3 21§ 741 4 ! the attribute buffer, and the Line characteristics vector, 
3 gi? rg : } then it is not changed -- drag up the Last changed Line by 1. 
: 2515 744 4 IF CHSEQL ( WIDTH, .WCB CWCB_A_TEXT_BUFJ + .B_OFFSET 
; 218 245 4 «WIDTH, .WCB CWCB-A-SCR_TEXT_BUF] + .B-OFFSETS 
Bi Be “0 
: 2520 749 4 CHSEQL ( .WIDTH, .WCB fucB_AATIR BUF + .B_OFFSET 
; 3 1 730 4 -WIDTH, .WCB CWCB"A-SCR_ATTR_BUF) + .B-OFFSETS 
te: oi 
> 2525 734 4 LC. £.PBCB PBCB_U_LAST CHANGED ROW} J EOL 
; 25 $ 755 4 -LCS C.PBCB CPBCB"W7LAST- CHANGED ~ROW 
$258 ft THEN 
; 369 758 5 BEGIN t Back up one row 
3; 25 759 5 PBCB CPBCB_W_LAST_CHANGED_ROW) = 
; 2531 760 : -PBCB’CPBCB_W_LAST_CHANGED_ROW) - 1; 
: 236 761 B OFFSET = .B_OFFSET = .WIDTH; 
3 23 ro6 ? END ! Back up one row 
3 2535 764 & EXITLOOP; ! Ist refined downward as far as possible 
3 H 765 END; ! Col Lapsing Loop 
; 706 END ! Normal case 
; 539 7eh ELSE 
; set oop BEGIN ! Range not set case 
: 228 77 iit ‘s possible, in some obscure cgees to reach here with the 
3 25446 77 ! the Ist changed row set to #rows+! and last changed row set to 0. 
3 $2 re In this case, set range to whole pasteboard. 
: <3 77 PBCB [PBCB_W_FIRST_CHANGED ROW] = 1; 
> 2548 77 PBCB CPBCB_W-LAST_CHANGED_ROW) = .WCB CWCB_W_NO_ROWS); 
3 2549 77 END; T Range not sét case 
3; 2550 77 
3; 2551 780 '¢ 
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SAGSSMINIMUR_UP SAGs : 4 
-046 SMG alculate minimum update sequenc 2-0ct-1984 SMGRTL .BUGSRC JSMGMINUPD .B32; 1 


SAIN 
SAIN 


D 
f we reach here 
e cPéc 


; § 781 ! we have legitimate gitterences on the Lines 

3 7 § : tween .PBCB B_FIRST CHANGED _ROW] and 

: ¢ 4 7 PBCB CPBCB_LAST_CHANGED_ROw) 

8 , é '+ 

3 3 7 ! If terminal supports scrolling regions, check to see if minimal update can be helped 
; 2? 7? : ! by using physical scrolling regions. 

: ¢ f 6 } *** Actually, we could also do full screen scrolling if we wanted to. 
: 256 79 

: i f § SSMGSGET_TERM_DATA(SET_SCROLL_REGION,1,2); 

; 2565 194 IF ,PBCBLPBCB_L_CAP_LENGTH) NEQ 0 

; sof a | BEGIN ! Terminal supports scrolling regions 

: 2569 79 i Changed area must be at least 2 Lines high f Lling t 

370 738 | Changed area mu e at least 2 Lines high for scrolling to be 
; 278 801 iF .PBCB [PBCB_W_LAST_CHANGED ROW] - 

: a7 o ma PBCB_W_FIRST_CHANGEB_ROW) GEQ 1 

; 373 B04 4 BEGIN ! Scrolling may be possible 

; $7 806 4 SMGSSCHECK_HDWR_SCROLL (.PBCB); 

: 2579 808 END; ! Scrolling may be possible 

; 280 44 END; ! feratnalts H v11b0 

; 286 eH RETURN SMGSSOUTPUT_PASTEBOARD( .PBCB) 

: 2584 B18 § END, ! End of routine SMGSSMIN_UPD 


~ENTRY SASSER IN UPS. Save R2,R3,R4,R5,RO.R7,RB.RI,~; 2632 


5E SUBL2 #16. SP ; 

56 MOVL PBCB, R : 

54 MOVL RG) W : 

PUSHAB SB(RO) : 

58 MOVAB 170(R63, R11 ; 

TSTW = (R11) ; 

BEQL © 4$ ; 

57 MOVZ2WL 6(WCB), WiDTH F 

0 CVTWL a0 (SP), R : 

DECL. R ; 

55 9 MULL3 widTH RO. B_OFFSET : 
VL = &&(wB), LC : 

A VL 48 (WCB), ics ; 

A CVTWL (SP), R : 

A MP (Ri >, R10 : 

16 B445 08 B445 CMPC3 WIDTH, @8(WCB)(B_OFFSET), a@20(WCB)- : 
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MGSSMIN_UPD™= Calculate minimum update sequenc 2-0ct-1 SMGRTL..BUGSRC JSMGMINUPD .B32; 1 
OFFSET) ; 
1 4 BNEQ - ; 
18 B445 OC B445 8 ig ire CMPC3 LTH, 912 (WCB) CB_OFFSETI, @24(WCB)- t 2711 
1°41 48 BNEQ ” : 
6A48 6as9 ? CHP RIO)CLCJ, (RIOCLCSI : 2717 
00 BE 5A o A ADDW3 #1, R10, a0(SP) + 27 3 
5 ? ‘ ADDL2 WIOTH, 6_OFFSET : 37 
d2 C BRB 3 27 
50 2s: CVTWL 46 (R11), RO : 37 
d 6 DEC! ; 
55 0 : MULL3 WIDTH, RO, B_OFFSET : 
A 68 3$: CVTWL =s(R11). R10 : 2735 
A 00 ft : A CAP a0 (SPS, R10 : 
14 B445 08 B445 s § 0 5 CMPC3 WIDTH, @8(WCB)CB_OFFSETI, @20(wCB)- + 2744 
23 1 90078 BNEQ 3” : 
18 B445 OC B445 29 0007A CMPC3 WIDTH, @12(WCB)(B_OFFSETI, @24 (WCB) = + 2749 
18 12 0082 SNEQ me : 
6A48 6A49 9 O64 CMPB =s-s« (R10) CLCJ, (R1I0)CLCSI > 2755 
11 12 00089 BNEQ ; 
68 SA or A 8B SUBW3 = #1, R10, (R11) + 2760 
55 7 ( O08F SUBL2 WIDTH, B_OFFSET : 2761 
ps 0092 BRB 3$ + 2746 
00 BE 1 BO 00094 4$: MOVW #1, @0(SP) : 277 
68 02 AG at 098 MOV (WCB), (R11) : 277 
2 01 C6 0 9C 5$: MOVAB $4 (RG, R2 + 2792 
OOFC C6 D Al TSTL 2(R6) : 
04 1 0 a3 BNEO § F 
D4 OOOA CLRL =. (R2) : 
11 0009 BRB 7 : 
08 AE D AB 6$ MOVL § #2, INPUT_ARGS ; 
OC AE DO OOOAF MOVL #1, INPUTTARGS+4 : 
10 AE 2 p : MOVL #2. INPUT"ARGS+8 ; 
08 AE OF PUSHAB InPut ARG ; 
0104 : DD PUSHL 0(RB) : 
D PUSHL R ; 
01 0 (C6 9F 000C PUSHAB 2 $(R6) : 
16 AE 23c 0S BFS 3. «00004 MOVZWL #572, 20(SP) ; 
4 AE F OOOCA PUSHAB : (SP) F 
OOFC oF cD PUSH 2(R6) : 
000000006 00 F D CALLS #6 SHGSGET_TERM_DATA ; 
1F E 8 BLBC = STATUS, ; 
6 DB 7$: Ist (Re) > 279% 
50 00 D CVTWL (SP), RO > 2802 
D E INCL R : 
50 68 10 FC £ CMPV 3=s-s#0,, «#16, (R11), RO : 
EA BLSS ; 
6 DD OOODEC PUSHL Ré > 2806 
EACS CF FB OOOE CALLS #1, SMGSSCHECK_HDWR_SCROLL : 
6 DD OOOFS 8S: PUSHL R6 : 2811 
0000v CF FB F CALLS #1, SMGSS$OUTPUT_PASTEBOARD ; 
0 FA S$: RET > 2813 
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; Routine Size: 251 bytes, Routine Base: _SMGSCODE + 15(7 


10 
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ingte SMGSSOUTPUT PASTEBOARD © Dring pos reboee ds catis Bxgann1385 31:36:28 ONGRTL BUGERCTSNCAY IED .B32:1 0 58) 


; 14 1 SSBTTL ‘SMGSSOUTPUT PAS TEGOARD = bring pasteboard up-to-date’ 

H F ! GLOBAL ROUTINE SMGSSOUTPU -PASTEBOARD ( P_PBCB ) = 

; 3 j 1+4 

; ay 18 1 1 FUNCTIONAL DESCRIPTION: 

; 3 01: Brings the G'splay associated with this pasteboard up-to-date. 
; 259 =e It does this by either redrawing it in its entirety 

3 ry: ; § ! } or by perfomring minimal update if that mode is enabled. 

: % e { CALLING SEQUENCE: 

; $38 8 : ret_status.wic.v = SMGSSOUTPUT_PASTEBOARD ( P_PBCB.rab.r ) 

: 690 8 : | FORMAL PARAMETERS: 

: ve é , : P_PBCB.rab.r Address of pasteboard control block. 
: 2604 1 ' IMPLICIT INPUTS: 

; 2605 1! 

3 one : : contents of PBCB and its WCB 

: 608 : | IMPLICIT OUTPUTS: 

0 F) 2eihnen 

; 61g 40 | | COMPLETION STATUS: 

: 2614 4g 1 i SMG$_BATWAS_ON OK, but batching was on, so nothing happened 
3 oi? rt ! SS$_RORMAL Normal successful completion 

: ei? 3845 i SIDE EFFECTS: 

> 2619 384? 1: NONE 

: 2620 848 1 !-- 


10 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE - Minimum update calculatio be tene19 5 $3:36:23 pene) we V4.0-742 Page 98 
1-046 SMGSSOUTPUT_PASTEBOARD = bring pasteboard up-to 2-0ct-1984 12:58:19 SMGRTL .BUGSRCJSMGMINUPD.B32; 1 (39) 
: 26 4 BEGIN 
i $836 
3 : BIND 
: 26 6 PBCB = .P pace : space DECL, 
> 26 4 WCB = .PBCBCPBCB_A wCB) : we BECL, 
; 6 § TEXT_BUF = :wCB WB A-TExT Bur} : vec OR BYTE, 
: 6 ATTR~BUF = .WCBCWCB-A-ATTR-BUF) : VECTORL.BYTE), 
: 0 ROWS = “WB WCB"W-NO_ROWS, : WORD, 
; 3 COLS = WCBLWCB"W"NO-COLS] : WORD: 
; 6 4 60 LOCAL 
+ 2635 ; STATUS, 
3; 26 SIZE; 
: 26 64 
> 2638 865 EXTERNAL LITERAL 
> 2639 66 
: 2640 86 SMG$_BATWAS_ON; 


FART TRINI LP 3m SMG 
1- SM 


bed 
= 
=z 
oe 


>c 
“vu 
=o 
m> 


TE = Minimum update calculatio 9-Jan-1 AX-11 Bliss- 0-742 


& BOARD - bring pasteboard up-to B-Jena198s #3: 38: %3 SMGRTL.BUGSR ReSSMGRG NOPD. B32;1 Page 3) 


* Cc 
= 


. Do nothing if the output is being controlled by RMS. 


Loo a 
Ut —OOD 


He ¢ 


IF_.PBCBCPBCB_V_RMS 
THEN RETURR “SMG$_WILUSERMS; 


'¢ 
Ry nothing if batching is in effect. 


> 


VE WN —"OOONOu 


IF_ .PBCBCPBCB_L -BAigh LEVEL) NEQ 0 
THEN RETURN ~SMG$_GATWAS _ON; 


SIZE = .ROWS * .COLS; 
'¢ 
: If minimal updating is in effect, then call 


! SMGSSOUTPUT _ INIMAL_UPDA\E to output a minimal update sequence. 
' Then return. 


90 IF_ .PBCBCPBCB_V_MINUP 


33235 235 So en a a 


DI 
33 THEN RETURN SHGSSOUTPUT MINIMAL _UPDATE (PBCB); 
9 '¢ 
94 ! Otherwise, do nothing (for now). 
r¢ 895 te 

670 596 

671 B97 RETURN SS$_NORMAL 

$678 899 1 END; ! End of routine SMGSSOUTPUT_PASTEBOARD 


-EXTRN SMG$_BATWAS_ON 


000¢ 99009 .ENTRY ig _PASTEBOARD, Save R2,R3 : 2815 
50 04 ac 006 00002 ROVL : 285 
$2 og A 2 C1 000 ADDL : 2857 
51 08 A $ C1 000 ADDL : 2858 
08 = 0000 E1 0001 BBC : 287 
© 000000006 8F 0 90016 MOVL i aH RO ; 287 

UU 3 
00a £0 DOIE 18 STL 1 64(RO: : 287° 

6 00 BEQL 
50 000000006 8F pd 009 ROVL BSHGS_BATWAS_ON, RO : 2880 

u : 
3 62 i EC 28 WOVZUL (RD), : 2882 

i C Q009F mOVWL (RI) Size 
0 =e, i FF BRaee me 1 ton, 38 ; 2890 
0 DD OO03A PUSHL : 2891 

000000006 00 1 £8 is ¢ CALLS #1, SNGSSOUTPUT MINIMAL _UPDATE ; 

U : 
1 1044 3$ MOVL #1, RO : 2897 
“ , be if 7 RET ; 2899 
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SMGSSOUTP RD - br pasteboard up-to 2-0ct-1984 


; Routine Size: 72 bytes, Routine Base: _SMGSCODE + 16(2 


; SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio = )o 1985 5 AX-11 Bliss-3 
ee re i: #): $43 @ USMGRTL BuceRCTSMGRG NOPD 832; 31 


6 SMGSSPUT_SCREEN = Output to screen Oc t-1984 
; 2675 1 ZSBTTL ‘SMGSSPUT_SCREEN = Out uf to screen’ 
$ of i GLOBAL ROUTINE she SPUT_SCREE 
: 678 : 1 TENT T_LEN, 
3; 267 1 TEXT ADR, 
3 Sie ROW_ ome 
: 1 1 coL- 
: gO8¢ pps FLAGS: BITVECTORC32] ) = 
: s $09 i FUNCTIONAL DESCRIPTION: 
: 26 911 1 ically outputs a string to the screen using calls 
3 aig 1! $095 messoureer’ the texte y dk, accomapnied a 
: 91 1! seakit tana end cursor positionin 
5 914 1! Note that the output segu ences ernereted may get 
3 ve a : buffered up by SMGSSOUTPUT if buffering is enabled. 
: 69 $7 | CALLING SEQUENCE: 
3 269% 319 1 i ret_status.wic.v = SMGSSPUT_SCREEN( 
3; 2695 920 1! P_PBCB.rab.r, 
: 26 921 1 | TEXT_LEN.rl.v, 
; 269 9 § 1; TEXT ADR. rt.r 
; 2698 9 1! Ov BUR. aWe 
3 99 924 1! FOL en UM. rliv 
; 00 925 1! FLAGS. rl.vJ) 
: 2701 9 $ 1! 
5 4" ; 5 : FORMAL PARAMETERS: 
: Me ; ; ; P_PBCB.rab.r Address of pasteboard control block. 
: 206 4 1 TEXT_LEN. rl. Number of characters in text string 
: 1S ; 5 ' ; TEXT_ADR.rt.r Address of start of text string 
: 710 3 5 ROW_NUM. lov Row number 
; a) ; ' COL_NUM.rl.v Column number 
: 714 9 1! FLAGS.rl.v Rendition codes. (bit encoded) 
3001 STAN1046 $40 1! Optional. If omitted, normal rendition 
: A 941 1! occurs. 
3; 271 ots 1! 
3 ne 1 ! IMPLICIT INPUTS: 
3; 271 944 1! 
: 2720 945 1! NONE 
: 2721 as8 : 3 
: 27. § a4 1 ! JMPLICIT OUTPUTS: 
3; e7 368 1! 
3: 2726 7! NONE 
3: 2725 339 1! 
3 756 ; ' : COMPLETION STATUS: 
; i 4 338 ' SS$_NORMAL Normal successful completion 
: 2730 955 1 | SIDE EFFECTS: 
3; 2751 956 1! 
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SMGSSPUT_SCREEN = Output to screen “Oct-19 


Le pe 


ie le | 
“ 


SAGSenINIAUN UP SMGSSMINIMUM_UPDATE - Minimum update 
1-046 SMGSSPUT_SCREEN = Output to screen 


959 


SSSELESSELES 


97 


RENDITION_CHANGED, 
STATUS; 
TRANSLATED_TEXT_DESC 


DSCS$B-CLA 
DSC$u_ “LENGTH 
DSCSA_POINTER) 


calculatio at 


: BLOCK(8,BYTE) ! ‘Se tabeed 


! Pasteboard control block 


TRUE if we changed rendition 


amic Se 


SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio b-. Jan-1985 #] +36: $3 AX-11 Ot ete teks Page 1 | 
1-046 SMGSSPUT_SCREEN = Output to screen “0c t-1984 12: 9 SMGRTL .BUGSRC sheAINOPS. 832;1 (43) 


758 ! 
P38 "be nothing if the output is being controlled by RMS. 
761 
76 If _.PBCBCPBCB_V_RMS 
17 THEN RETURR “SMG -WILUSERMS; 
765 ‘4 
4] If a rendition was specified, then output it now. 
2768 
769 99 IF rag TUAL COUNT CD GEQU 6 
a 280 THEN BEGIN ! output text and renditions and cursor positioning 
a 44 BIND TT2 = PBCBCPBCB_L_DEVDEPEND2) : SBBLOCK; 
774 998 ‘+ 
1 STAN1046 999 i Note that renditions haven't changed yet. 
;002 STAN1046 000 i ;_CSet to 1 if they have changed. 
003 STAN1046 001 
004 STAN1046 OO¢ 
:005 TAN1046 Be munition ievnnmed 
TAN1046 4 


TAN1046 005 :¢ 


33 
NOVIMUNNMUNYH 


Se Se Be Se Se Ge Se Be Ge Se Be Se Se Be Se Se Be Se Se Fe Se Fe Se Se Se Se Fe Ge es Se Se Se Be Se Se Se Oe Se es eee ee Oe ee Oe Oe Oe ee OH Oe Oe Oe Oe Oe ee Be ae 


77 i Renditions requires that the AVO (ADVANCED VIDEO) terminal 

77 00 ' characteristic bit be set. Even if the TERMTABLE entries 

77 008 ! show that the terminal has the BEGIN_BOLD capability, 

ak sts & the terminal might not have the advanced video option. 

reo O12 Le as ATTR_vV_REND_GRAPHIC) 

Tae o1$ ? “tigettase. AvO] OR NOT .TT2CTT2$V_ANSICRT)) 

re Bia ? SERGSGET ~TERM_DATA(BEGIN_LINE_DRAWING_CHAR) ; 
sree O19 4 “i -PBCBCPBCB_L_CAP_LENGTH) NEQ 0 

787 018 5 THEN BEGIN™ 

788 019 § STATUS=SMGSSOUTPUT (PBCB, .PBCBCPBCB_L_CAP_LENGTh? 

789 020 § PBCB- A “CAP“BUFFER3S; 

790 021 5§ IF NOT .STATUS THEN RETURN STATUS” 

791 0 ; 4 END; 

79 0 END; 

79 024 

794 s 5 '+ 

re $ Get and output the string to set the correct attributes. 

roe 6 $ i. a ATTR_V_REND_ BOLD) 

ih 0 2 ma HN AvO] OR NOT .TT2CTT2$V_ANSICRT)) 

801 § ? SSNGSGET_ TERM_DATA{BEGIN_BOLD); 

508 4 & IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 

Boe 5 THEN BEGIN™ 

5 SIATUSSSRORESUTPUS <POCE, Per errece ere erty 

8 0 CBCPBCB-A~CAP~auFFEKIS; 

$80 038 IF NOT .STATUS THEN RETURN .STATUS; 


3001 


3am 232380 sco 


Me SS 4 OO 
WN 0 CONAN EWN SN OOONAUE Ww" 0O0@u 


© Cd 0d Cd CD CD 0D 09 09 0D 09. 0D CD —* GC. CD 0D Gu CD. CD. CDV. CD. CDV. CD CV OP CD 


WWIWInonononenonofrornen 


SOOSSS® 


WAAAY 


} eye 


SEAR 


Se 


OOO OUSwN—o 


SOON ME 


SMGSSMINIMUM_UP S 1 
tts ~  SMGSSPU 


TAN1046 


TAN1046 


TAN1046 


TAN1046 


MGSSMINIMUM 


39 
40 


04 


ERR 


OOONOUS WI —OOMw 


AMMAN 


61 


OOQOQQOOCOOOCOoCoCO 


FSSSSO 
CONOAUE WP 


See 
o 


Coco Oo NIN SNS NNN 


SSS PNT HS SaNousun—o 


DOOOOOOOOOOODOOCOSCooO 


So 
~o 
_ 


; 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
; 
4 
6 
& 
4 
5 
5 
| 
& 
4 
& 
& 
4 


T_SCRE 


U 
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PDATE - Minimum update calculatio 
- Output to screen 


RENDITION_CHANGED=1 
END; 


END; 
IF .FLAGSCATTR V_RENC_ BLINK) 
AND Aaa ey OR NOT .TT2CTT2$V_ANSICRTJ) 
THEN BEGIN 


SSMGSGET_TERM_DATA(BEGIN_BLINK); 


IF | ,PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
STATUS=SMGSSOUTPUT (PBCB, .PBCBEP 
PBCB 


IF NOT .STATUS THEN RETURN .STA 
RENDITION CHANGED=1 


END; 


IF oFLAGSEATIR V_REND_REV] 
AND (.TT2CTT2$9_AvO) OR NOT .TT2CTT2$V_ANSICRTJ) 
THEN BEGIN 

SSMGSGET_TERM_DATA(BEGIN_REVERSE) ; 


IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN GIN 


STATUS=SMGSSOUTPUT (PBCB, .PBCB pace CAP_LENGTH] 
IF NOT .STATUS THEN RETURN .STATUS: ~ 


RENDITION CHANGED=1 
END; 


END; 
IF . LAGSFATIR V_REND_UNDER) 
AND (.TT2CTT2$9_AvO) OR NOT .TT2CTT2$V_ANSICRT)) 
THEN BEGIN 


$SMGSGET_TERM_DATA(BEGIN_UNDERSCORE) ; 


IF_.PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
THEN BEGIN 
PI ATUSAERSSORN TUT OCS, aT Te 


IF NOT .STATUS THEN RETURN .STATUS: 
RENDITION CHANGED=1 


END; 
'¢ 


' Output the text if they are not border elements. 
Output translated text for border elements. 


Bosonctaas 21:56:25 


BCB_L 
PBCB_A 
TUS 


CB_L 
PBCB_A_ 


CAP~BUFFER 


ret Bliss-3 
SMGRTL .BUGSRC 


IF_.FLAGSCATTR_V_BORD_ELEM) OR .FLAGSCATTR_V_USER_GRAPHIC) 


THEN BEGIN ~ T handing border element 
LOCAL 


TEXT_DESC : VECTORE2); 


iJ; 


§ V4.0-742 
SMGMINUPD .B32; 1 
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SMGSSPUT_SCREEN = Output to screen 


3333 


FSS TOLS 


Wwro—O Oo 


we 


OODOCCoo Oo 


SLES 
Wwr—OO°w 
oo 
CON 


G2 C3 Od CD CD CD CD CD 
aN 
iv Pe 


So 


SEs 


SF 


S85 


Faess 


Oo 
w 


et a at ns st ss 
MEUM (OO OONO VE WN (OC OONOUES WOO 


SE3SSE 


Mmeun— 


ed ae ad ad ea ea ee ee ee a ee ee ce ad ee a ce ce ee cD ee et ee ed ee ee ed ee ee cd ee ce ee ee ee ee ee ee ee eed eed ee eed eed 
SNS NNN NP PAA A AAA MINIM BEEBE EF PNA OOO FS SPP PPP PEPE PPP EEE 


MUA EEL LLL EEE 


MC OOwWO UF wt" OO 


ee ett et 


NOUN Oo 


-0ct-1984 SNGRTL BUGSRCISMGAINPS. B32;1 


EXTERNAL ROUTINE 
LIBSSCOPY_DXDx; 


'4 
i Build a fixed-length string descriptor for the 
‘ source text. 


ESCEOJ=. Text. 
ESCL1J=. TEXT 


i ; Get and output the prefix string to start borders. 


J CTTab a OR NOT .TT2CTT2$V_ANSICRT) 
SSMGSGET_TERM_DATA(BEGIN_LINE_DRAWING_CHAR) ; 


IF _.PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
THEN BEGIN™ 
STATUS=SMGSSOUTPUT (PBCB, .PBCB[PBCB_L ey 
CBCPBCB-A BUFFERIS; 

1F NOT .STATUS THEN RETURN a hitte 


+ 
af the COMPLEX_BORDER bit is set, then we have to output 
the border characters one at a time 
| Otherwise, we can do a byte for bete translation. 


IF _ .PBCBCPBCB_V_COMPLEX_BORDER) 
THEN BEGIN” ~! Compléx border 


INCR I 7 TO .TRANSLATED_TEXT_DESCCOSCSW_LENGTH)-1 DO 


LOCAL CHAR; 
BIND Buf =_-TRANSLATED_TEXT_DESCCDSCSA_POINTER] 


VECTORE ,BY 
BIND BORDER RaVECTOR = =" PBCBLPBCB_R_BORDER VECTOR) 


CHAR= pure | 
al . CHAR GéQu 16 


THEN N 
CHAR=. CHAR/16; 


"The fol tquing fos is ridiculous. 

' We should reall y have a control_vector i9 ue PBCB 
' so that these characters will be potton 

' However, we had no chance to do t 


SELECTONE .CHAR OF 


ga 
s before final code freeze. 
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eth “" SMGSSPUT_SCREEN = Output to ecreen Set $3:28:43 SMGRTL BUSEREISNGAG NOPD .B32:1 age 19 
3; 291 1 
; 313 1 ; we 
: 2901 1 $ 7 g : SMGSGET_TERM_DATA( TRUNCATION_ICON); 
; 29 § 1 ? ; SMGS$GET_TERM_DATACHT_GRAPHIC); 
: 29 1 8 7 10): SMGS$GET-TERM_DATA(LF GRAPHIC); 
+ 2926 1 7 11): SMGS$GET-TERM-DATA(VT_GRAPHIC); 
3 2925 160 7 9 : SMG GeTaT RM~DATA(FF GRAPHIC): 
: 29 $ 161 7 13): SMGSGET-TERM-DATA(CR-GRAPHIC); 
3 ; 196 OTHERWISE): SSMGSGET_TERM_DATA(TRUNCATION_ICON) ! Error characte 
: 29 1 TES; 
3; 29 188 
3 2931 166 7 IF _,PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
3 29 é 16 THEN BEGIN 
: 29 168 STATUS=SMGSSOUTPUT (PBCB, .PBCBEPBCB_L _CAP_LENGTH] 
: 29 169 -PBCBCPBCB_A_CAP_BUFFER]); 
: 3 5 170 JF not «STATUS THEN RETURN . STATUS 
: 29 178 8 ELSE BEGIN 
: 2938 17 STATUS=SMGSSOUTPUT(PBCB,1,UPLIT BYTE('®")); 
> 2939 174 8 IF NOT .STATUS THEN RETURN .STATUS 
: 2940 175 END: 
5 2941 176 7 
: 968 177 7 END 
3 296 178 7? ELSE BEGIN 
+ 2944 179 7 BIND COUNT=.B9RDER_VECTORC.CHAR) : BYTE, 
3: 2945 180 7 STRING=COUNT+T; 
> 2946 181 7 STATUS=SMGSSOUTPUT (PBCB, .COUNT, STRING); 
+ 2967 189 7 IF NOT .STATUS THEN RETURN .STATUS 
+ 2948 18 ? END 
: 2949 184 END; 
: 2950 185 
: 2951 196 
: 236 187 5 END ! Complex border 
3: 295 138 5 ELSE BEGIN ! Simple border 
3: 2954 189 
: 333 194 i*e the inuut string to the output stri 
3 ; LO e ingut str 0 e output string. 
: $98) 189 ait % 
: 335 194 STATUS=LIBSSCOPY DXDX(TEXT_DESC, TRANSLATED_TEXT_DESC); 
+ 2960 195 IF NOT .STATUS TREN RETURN” .STATUS; 
3; 2961 136 
: 306 19 '¢ 
3 st 138 } Change the characters as per the border vector. 
> 2965 
; 966 ° 3 INCR I FROM 0 TO . TRANSLATED_TEXT_DESCCDSC$W_LENGTHJ-1 DO 
: 368 z 6 LOCAL CHAR; 
: 96 & BIND Buf = sTRANSLATED_ TEXT _DESCCDSCSA_POINTER] 
: 29 9 5 6 : VECTORC BYTE); 
: 297 6 IND  BORDER_V ETOR = PBCBCPBCB_R_BORDER_VECTOR) 
: 97¢ : VECTORE16); 
+ 297% } é ' If the character is larger than 15, then 
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SSPUT_SCREEN = Outpur to screen -Oct-1 SMGRTL ..BUGSRC JSMGMINUPD .832;1 (435) 
; 2975 1 ! the high-order nibble is a special 
3 359 1 ; yseragrepnic character. We could allow 
: 297 1 ! or up to 15 characters here, things 
s 44: 1 ! Like CR_GRAPHIC, etc., but for now 
3; 297 14 6 ! we only allow code 6 to mean truncation-icon. 
3 oat 1? ? ! Other codes represent the error character. 
3; 29 ¢ i$ 6 CHAR=.BUFC.1); 
: 29 18 § IF .CHAR GEQU 16 
: 29 1 THEN We 
3 ; 5 y CHAR=.CHAR/16; 
> '¢ 
3; 29 7? ! The following code is ridiculous. 
; 298 4 7 ! We should reatty have a control_vector in the PBCB 
3; 2990 5 F ' so that these characters will be gotten just once. 
3 a4 § 4 However, we had no chance to do this before final code freeze. 
3 398 8 7 
3 2994 9 7 SELECTONE .CHAR OF 
: 2995 0 7 
3 ba . 2 SET 
3; 299 § 7 
3; 2998 7 § H SSMGSGET_TERM_DATA(TRUNCATION_ICON); 
; 2999 4 7 :  $SSMGSGET-TERM-DATA(HT_GRAPHIC); 
; 3000 5 7 10]: $SMGSGET“TERM-DATA(LF GRAPHIC): 
: 3001 § 7 11): SSMGSGET_TERM_DATA(VT_GRAPHIC); 
; 008 7 1g): SSMGSGET-TERM_DATA(FF-GRAPHIC); 
; 300 : 7 15): SSMGSGET_ TERM DATA(CR_GRAPHIC); 
; i ZR H OTHERWISE): SSMGSGET_TERM_DATA(TRUNCATION_ICON) ! Error characte 
; 006 41 i TES; 
: 608 ¢3 7 IF_ .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
: 3009 44 8 THEN BEGIN 
: 3010 45 8 BIND CHAR=.PBCBCPBCB_A_CAP_BUFFER] : BYTE; 
3; 3011 re BUFC.1J=.CHAR 
: Big 4 ND 
3; 301 48 ELSE BEG 
3 3014 49 BUFC.1J=%C'*' 
; O16 29 7 ' 
: O17 3g 7 END 
3 18 2 ELSE BUFC.1J=.BORDER_VECTORC.CHAR) 
3 1 : END; 
: 3021 se 14 
3 § ' Output the translated characters. 
3 28 ! We do not free the dynamic string at this time 
: 4 5 ' as an optimization. We are sure to need that 
3 5 60 ' space later. 
o § 61 le 
; 4 $8 STATUS=SMGSSOUTPUT (PBCB, 
3 64 Rta ee tte titletts te titty 
; 9 65 . TRANSLATED- TEXT -DESCLOSCSA_POINTER)) ; 
3 1 66 IF NOT .STATUS THEN RETURN .STATUS; 
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th SnCSSPUT Se REEN - Output to screen 3np 07-138? $3:28°93 SNGRTL BUSERSSNGAGNUPS 83251 ad? ) 
: 30 7 § 
; 0 2 END; ! Simple border 
: 3035 4 14 
; ; 2 Get and output the suffix string to reset attributes to normal. 
: 30 73 4 
; B7 74 4 IF_.TT2CTT2$V_AVOJ OR NOT -TT2CTT2$V_ANSICRT] 
3 0 75 THEN thy 
3 eh 8 SMGSGET_TERM_DATA(END_LINE_DRAWING_CHAR) ; 
; a8 28 IF_.PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
3 4 4, 79 6 THEN BEGIN 
3 3045 80 6 shiahtiatnataadibdibitamial Sty Te eS 
: O46 81 é .PBCBLPBCB-A_CAP-BUFFER]5; 
3; 304 § § IF NOT .STATUS THEN RETURN .STATUS; 
3; 3048 8 END; 
3 ed ae 2 END; 
: 3051 if 4 END ' handling border element 
3 B36 4 ELSE BEGIN ! handt ing normal text 
3; 305 88 4 STATUS=SMGSSOUTPUT (PBCB,.TEXT_LEN,.TEXT_ADR); 
> 3054 89 4 If NOT .STATUS THEN RETURN .STATUS; 
3 036 + END; ! handling normal text 
: 305 9 ry 
; 3058 38 ! Get and output the suffix string to reset attributes to normal. 
; 3059 94 ' We used to assume that END BOLD brings back normal attributes. 
;_ 3060 95 ' Now we rely on BEGIN_NORMAC_RENDITION. 
:00¢ ST Anigee ? } Only reset to normal if we fiad changed to some other rendition. 
[003 STAN1046 98 
3 STAN1046 99 4 IF_.RENDITION_ CHANGED AND (.TT2CTT2$V_AVOJ OR NOT -TT2CTT2$V_ANSICRTJ) 
3 pee-5 ? 2 THEN BEGIN 
; v4 L § ? ae ZDECLARED( SMGSK_BEGIN_NORMAL_RENDITION ) 
; 068 : 304 4 sacs SSMGSGET_TERM_DATA(BEGIN_NORMAL_RENDITION) ; 
: 3070 U 3 4 SSMGSGET_TERM_DATA(END_BOLD); 
; Bos 0 ? ZF I 
; se $8 4 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
: 74 19 THEN BEGIN 
3 75 1 STATUS=SMGSSOUTPUT (PBCB, .PBCB Pete CAP LENGTH) 
; 307 19 : CB"A~CAP~BUFFERI); 
3 7 1 IF NOT .STATUS THEN RETURN .STATUS; 
: 3070 13 3 <2 
: 3 ; E 
s 1 IF .FLAGSCATTR_V_REND_ GRAPHIC] 
3 \8 4 AND Piet TS OR NOT - TT2CTT2$V_ANSICRT)) 
: 1 4& THEN Ht, 
3 2 SMGSGET_TERM_DATA(END_LINE_DRAWING_CHAR); 
; ¢ § IF_.PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
3 5 THEN BEGIN 
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; ‘ STATUS=SNGSSOUTPUT (PBCB, .PBCBEPBC L_CAP LENGTH} 

; * “RrCAP BUFFERS; 
; JF NOT ,STATUS THEN RETURN .S arce 
i 3098 END; 
: END ' output text and renditions 
: 5 1 ELSE BEGIN output text only 
: 309 j STA TUS=SNGSSOUTPUT(PBCB. . TEXT LEN, .TEXT_ADR); 
; 4 IF NOT .STATUS THEN RETURN .STATUS 
3 104 END; ! output text only 
; 108 8 ¢ RETURN SS$_NORMAL 
> 3104 40 1 END;  ! routine SMGSSPUT_SCREEN 
.PSECT _SMGSDATA,NOEXE, PIC,2 
0000 00044 TRANSLATED_TEXT_DESC: 
004 wae * 2 
00090098 8004 " es 
-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
2A O170A P.AAE: .ASCII \#\ 
.EXTRN LIBSSCOPY_DXDX 
OFFC ENTRY aeeatovatt SCREEN, Save R2.R3,R4.R5.R6.R7.R8.-; 
58 CF 9£ MOVAB SMG$$OU 
A A 0000 a99" F Of MOVAB TRAN ANSCATED "sent DESC, R10 
G 9 9 MOV SMGSGET_TERM_DATA, RO 
% AC § Ste Reece 
08 o0n0 03 E1 ans A At 
000000006 8F 9 MOVL #SMG UILOSERRS. RO 
06 1 C (AP), #6 
5 c BGEQU é 
OSEA BRW 2 
54 60 Ag é MOV 96(R2), R4& 
D CLAL REND] TLON_ CHANGED 
54 18 Ac a €1 BBC ¥ FLAGS: 
04 64 BE S #2?, (R4). 3$ 
4C 03 a4 Ee BLBS (rd), 6$ 
ooFC ¢ Ist 32(R2) 
53 0108 : MOV 64(R2), R3 
p CLAL R3) 
1 BRB $ 
OC AE D4 CLRL —«s INPUT_ARGS 
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#446, 16(SP) 
SP) 


(R2) 
be SGSGET_TERM_DATA 
TATUS, 
(R3) 


, SMGSSOUTPUT 
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ENDITION. CHANGED 

TAGS. 188 


R4). 13$ 
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T_ARGS 
T7ARGS 
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1 9€ 0011 MOVAB 4(R2), R3 ; 
5 ome ue it ; 
100 ¢ F 00119 PUSHAB 2 6¢R2) : 
10 AE 18a gr ( b ROVZWL rT 2, 16(SP) 
OOFC F 00106 PUSHAB (R2) ; 
¢ Gb Fe ODE CALLS Be Shesgey_remn_para ; 
62 94 Boag Vos: STL ae 
1 PUSHL 26 (n2) : 3051 
_ § BD 1 PUSHL (R3) : 3050 
DD 0013A PUSHL R 
68 FB 0013¢ CALLS #3, SMGSSOUTPUT ; 
§ é 4 Ft 178: BLBE SrATOSS 4 > 305 
5 1 06 138 "MOVE «=—s #1, _ RENDITION. CHANGED : 82 
57 18 AC 01 £1 00148 18$: BBC #1. FLAGS, 248 ; 3057 
04 64 1B £0 0014D BBS #27, (R4) : 3058 
4F 03 A EB 00151 BLBS (R4), 26$ ; 
OOFC C3 p is 19$: TST 32(R2) : 3060 
53 0108 ~«¢ 4 1 MOVAB 264(R2), R3 
St a nD 7 
oc AE p4 164 208 CLRL_—sINPUT_ARGS 
C AE OF 00167 PUS NPUT“ARGS 
9104 C2 DD OO16A PUSHL 60(R2) 
53 0108 ( E 001 MOVAS 4(R2), R3 
D 001 PUSHL R : 
0100 c F 0017 PUSHAB 256(R2) 
10 AE O1BF §68F «3C 001 MOVZWL #447, 16(SP) ; 
10 AE F O017F PUSH. 16<SB) 
OOFC F 001 PUSHAB 252(R2) 
69 6 FB 1 CALLS #6 SAGSGE_TERM_DATA 
59 E9 00189 218: LBC «= STATUS, 27$ : 
& D3 D018C 22$: TSTL (R3) ; 3062 
0106 C2 DD O01 Pus 60(R2) 3065 
le P+ 
: DD 00194 PUSHL ta : 3962 
DD 001 PUSHL R 
6 F 90198 CALLS #3, SMGSSOUTPUT 
3 £9 QO19E 238: Lae STATUS. 98s ; 3066 
: Re cs, BPH: Hiei gs cwmce £3 
le e Py 
be " $6 8 E DO1A9 BBS #27, (R4). 25$ : 3072 
GF 03 AS E8 001 BLAS = 3(R4), 308 : 
OOF C C2 ° 18 258: Ist a ; 3074 
1 9€ 0018 MOVAB 4(R2), R3 : 
as we ef o 1BC CLRL (R3) 
¢ HE bs 1¢5 2os:fLRL.{NPUT_A 3 
iS RB Rewe UL a 2 
53 8 i 4 1CA MO gOtRs) R3 : 
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985 21:56: AX-11 Bliss-32 v4.0-742 
382 #353883 YSMGRTL BuceRe TsMcAywaes 32:1 
Aly 56$ 
DIVL2 #16, CHAR 
CMPL (CHAR, #6 
BNEG = 
TSTL 252(R2) 
BEQL «= & 
BRw 52$ 
CMPL CHAR. rT) 
BNEQ 
TSTL : (R2) 
BEQL 
CLAL NPUT_ARGS 
PUS NPUT~ ARGS 
PUSHL 60(R2) 
PUSHAB 264(Ro) 
PUS (R2) 
MOVZWL #588, 16(SP) 
BRB 4 
CMPL CHAR, #10 
BNEQ 3$ 
TSTL egg (ne) 
BEQL 
CLRL_—s INPUT_ARGS 
PUS NPUT~ ARGS 
PUSHL  260(R2) 
PUS G4(R ) 
PUS GAR ) 
MOVZWL #587, 16(SP) 
BRB 9$ 
CMPL CHAR, #11 
BNEQ $ 
TSTL 3¢(R2) 
BEQL 
CLRL__—sINPUT_ARGS 
PUSHAB INPUT~ARGS 
PUSHL 260(R2) 
PUSHAB 264(Ro) 
PUSHAB (R2) 
MOVZ7WL #589, 16(SP) 
BRB 5 
CMPL CHAR, #72 
BNEG 47 
TSTL §? (R2) 
BEQL 1 
CLRL__—s INPUT_ARGS 
PUSHAB INPUT 
PUSHL  260(R2) 
PUSHAB (RO) 
PUSHAB (Re) 
MOVZWL #586, 16(SP) 
BRB 5 
CMPL HAR, #13 
BNEQ 9 
TSTL (R2) 
BEQL 1 
CLRL NPUT_ARGS 
PUSHAB INPUT"ARGS 
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HD: 
} f é 49$: 
:: 
He 
a ; FAA 528: 
a: 
8F 3 00371 
A 8 $8) 
a ee 
$f 0 ; 548: 
5 8 Be 
CF OF 00894 558: 
hae 
C tp oP hs 56$: 
00 hs 57$: 
a 
4, ; ‘ _ 
“BR ap oe 
D8 08¢9 
ts 
ot ER 
5 A 00%p ) 
of | : 
b | EF 648: 
ee 


RC SMGHINUPD. 832;1 


§ AX=11 Bliss-32 V4.0-742 
382 q3; 3g: 13 SMGRTL.BUGS 
PUSHL se0in3} 
PUSH 35 (ns) 
PUSHAB 
MOV ZW Ret SP) 
Bre 
TSTL wai 
BNEQ 
CLAL 4(R2) 
BRB 4 
CLRL _-« JNPUT_ARGS 
PUSHAB INPUT g Ares 
PUSHL if 
PUSHAS (R 
USHAB by 
MOVZWL 0, “16(SP) 
USHAB. 16(SP) 
PUSHAB 252(R2) 
CALLS #6 thee TERM_DATA 
BLBS STAT 
RET 
MOVL 264 R2), 
BEQL $ 
PUSHL  260(R2) 
PUSHL R 
RB: = 57S 
PUSHAB P.AAE 
USHL #1 
BRB 57$ 
MOVL #68(R R2)CCHARJ, RO 
PUSHAB 1(RO) 
MOVZBL (RO), (SP) 
PUSHL Re 
CALLS #3, SMGS$SOUTPUT 
VL RO, STATUS 
BLBC STATUS, 61$ 
AOBLSS RS, 1, 59$ 
Rw Reg 
BRW 9 
PUSHL Ri 
SH XT_DESC 
CALLS . CIBSSCOPY_DxDx 
MOVL STATUS 
BLBS no: $ 
BRW 04$ 
MOVZWL TRANSLATED_TEXT_DESC, R8 
HME GL “i, 1 
VL et TEXT_DESC+4, R3 
MOVZBL CRAR 
CMPL i aie 
BGEGU 
RW as 
IvL2 CHAR 
CMPL Wah. 
NEQ 
TSTL (R2) 
BEQL 
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09¢S 31 003F9 BRu 768 ; 
09 } 44 65$: oe HAR, #9 3 3234 
Oorc =6C¢ of 1 TSTL (R2) : 
60 3 BEQL 9 3 
6 AE p4 CLRL__—s INPUT_ARGS ; 
4 A f A PUSHAB JNPUT_ARGS 3 
106 Ce DD PUSHL O(R2) : 
1 . ¢ f 1 PUSH 4(R2) 3 
1 f fF 3 PUSHAB (R2) : 
10 =AE 24C¢ F C 0041 MOVZ7ZWiL #588, 16(SP) : 
1 fF BRB 70 : 
OA D1 1 66%: CMPL CHAR, #10 : 3235 
12 00424 BNEQ 7 : 
OOFC C2 OD 6 TSTL 52(R2) ; 
6D 1 SOA BEQL 2 : 
04 AE 4 C CLRL_—s SNPUT_ARGS : 
oe A F 0042F PUSHAB INPUT ARGS : 
4 4 C 0D 432 PUSHL 60(R2) : 
138 C oF PUSHAB ts ) : 
010 § 3 435A PUSHAB ger ) : 
10 AE 0248 F 3 MOVZ72WL #587, 16(SP) : 
98 11 44 BRA 738 : 
08 0 0o1 re 67%: CMPL CHAR, #11 : 3236 
29 1 044 BNEQ 8s 5 
OOF C C 05 00448 TSTL g(ne) 3 
6A 13 O0044F BEQL 5 ; 
04 AE p4 0451 CLRL_—s JNPUT_ARGS : 
4 A F ote: PUSHAB INPUT ARGS ; 
01046 ¢ 4 10457 PUSHL 60(R7) : 
0108 ¢ F 8 S $e (Rg) : 
Bi 5 oF f PUSHAB (R2) : 
10 =AE 240 F ‘ 00463 meee, pe 9, 16(SP) : 
oc § D1 Reee 68$: CMPL ‘oe #i2 3; 323” 
2 1 BNEQ 1$ : 
OOF C C 9) TSTL 62g (Re) : 
4 1 74 69%: BEQL : 
04 AE e CLAL INPUT_ARGS 3 
% A F PUSHAB INPUT ARGS 3 
0106 +C 44 0047 PUSHL 60(R2) : 
eS risus 385405 ; 
10 AE 24A if ¥e MOV2WL Of be. 16(SP) 5 
49 70$: BRB 7 : 
0D 3 p} 718: CMPL cHan. ais ; 3238 
9 BNEQ 4 g 
OOF C § 9 9 TSTL $2 (R2) $ 
99 72% BEQL 3 
AE ps 98 CLAL INPUT_ARGS b 
A . Hj PUSHAB INPUT_ARGS 3 
106 «C¢ ) a PUSHL 0(R2) ; 
1 C f A PUSHAB (R2) ; 
1 F a PUSHAB (R2) : 
10 «AE 24 7 f mOV7wi #585, 16(SP) : 
4 B3 73$: BRB 7 ; 
OOFC §=6C2:«C#S BS 74%: TSTL 252(R2) : 3239 
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SMGSSMINIMUM_UP 
1-046 "2 


53 


0108 


04 


03 
OOF C 


0108 
Oe 
4 
104 
108 
319 
1D 
10 


OOF C 


0104 


SMGSSMINIMUM_ UPDATE = Minimum update calculatio 
SMGSSPUT_SCREEN = Output to screen : 


SO *OWO We 8 4 0 0 OM OOWO 


oo 
OODIS —GOWNOD BAA MOMS MF EMNVNDOOODO NS SOO OWNOD HOMO 


mo "9 NO 9 - OM *OOWOS OC OO 9 O--OMmm 


be 12:58:49 


ooooooo 


aad at et et tt ed ted et te tee ee et et et at et et nt et 
hin eo. NW HAIMMMMMOCIOMOOOO@O@Ow 
PNM FS BHLMO SPOWOM OW DNS "DO 


DNW DWDVMVO 


OOOCCOCOCCOCOoooooooO 


FEFUSVSUSUSUSUSUSISUSOSISISISISIS 


eS PASSIVE & & 
mwAODy FRasaSVFSS NWO 


~o 
_ 
bad 


cDcD 
on 


PR 


woo 
oo 
PR 


Yana AT v4.0-742 
SMGRTL .BUGSRC JS 


364 na) 


252(R2) 
a6 SHGSGET_TERM_DATA 
TAtus % 
4(R } 
a260(R2), (1)CR3) 
a4 » CDCR3I 
8(R2) CHARI, (1)€R3] 
R8, I, 82$ 
RH 
TRANSLATED_TEXT_DESC+4 
TRANSLATED_TEXT_DESC, -(5P) 


ono 
PUSAN 


SS 

cc —_- 
_ r] 
> 
Zz 
ao 
nm” 


TKPUWUOCOWF: TH OO £07 


LEN, =(SP) 
F SNGSSOUTPUT 
TATUS, B35 


OMIM SG DAN DW AANA FMA O 


AD BZD 0-0-4 BN BN DN @O— 


MGMINUPD .B32; 1 


12 
SMGSSMINIMUM_UP SMGSSMINIM PDATE = Mi -Jan- 256: - ° -0- 
IGRRTMUNUP SERENE cotiasn ance catelarto Foci FETS WMGAN MURAI owe.1 I 


SMGSSPUT_SCREEN = Output to screen -Oct-1 3 
54 57 € 75 92$:  BLBC RENDITION CHANGED, 98S : 3299 
04 64 ip € iF} BBS wy (R4)> 93$ : 
4C 03 Aa E 7 BLBS (rR), 98$ ; 
COFC f D 938: TSTL 52(Rd) + 3304 
1 BNEQ : 
53 0108 C2 9€ MOVAB 264(R2), R3 : 
$ D4 CLAL (R3) : 
11 D BRB 6 : 
C AE p4 F 94$ CLRL __—sINPUT_ARGS : 
C AE OOF : PUSHAB INPUT~ARGS : 
0106 ¢ pp 9 PUSHL 60(R3) : 
5? 0108 ¢ — 00599 MOVAB 4(R2), R3 : 
1 DB oeaD PUSHAB 336(R2) : 
10 AE $398 if C Ad MOVZWL $355 16(SP) : 
10 AE F OOSAA PUSHAB 16(SP) ; 
OOFC OF AD PUSHAB 252(R2) : 
$9 FB 00581 CALLS #6, SMGSGET_TERM_DATA : 
B E9 00584 95$:  BLBC STATUS, 1968 ; ; 
6 D3 B7 96$: TSTL (R3) : 3309 : 
111 89 BEQL 983 : F 
0104 C2 oD 00588 PUSHL 260(R2) > 3312 ; 
: DD 005BF PUSHL  (R3) > 3311 ‘ 
0D C1 PUSHL Bg 3 3 
68 g FB 005C3 CALLS #3, SMG$S$OUTPUT : ; 
56 4 £8 MOVL RO, STAT r | 
SF 56 CE C9 97$:  BLBC STATUS, 104$ + 3313 
5E 18 AC 04 €1 CC 98$: BBC #4, FLAGS, 105$ : 3317 
04 64 1B €0 00501 S #27, (R4). 99$ : 3318 
56 03 A& EB 00505 BLBS 384) 105$ : 
OOFC c3 D3 09 99$: _—s*TSTL §2(R3) : 3320 
1 DD BNEQ 1008 : 
53 0108 ~=«¢ 9 DF MOVAB 264(R2), R3 ; 
8 D E4 CLRL (R3) 5 3 
1 £6 BRB 101$ F 
C AE D4 00568 1008: CLRL INPUT_ARGS ; : 
C AE 9F 005EB PUSHAB INPUT~ARGS : : 
o1 oe C2 0D E PUSHL o0tRg? 3 
53 108 f 9E 005F VAB 4(R2), R3 : ; 
C ia PUSHL R 3 3 
010 f F F9 SHAB 256(R2) 3 i 
10 AE 01D F 3¢ FD MOVZWL #469, 16(SP) ; ; 
1 AE F PUSHAB 1O<SB) : : 
OOF C 9F 006 SHAB 252(R2) : : 
69 F BOA CALLS #6 SAGSGET TERM_DATA ; : 
22 c BLBC STATUS, 1068 ; 
b p 610 101$:  TSTL (3) : 3322 
1 1 BEQL 105$ : 
0104 C2 DD 0061 PUSHL  260(R2) ; 3335 
6 : 18 PUSHL  (R3) : 4 
4 51A BRB 103$ ; 
7E 08 AC 70 0061 1038 MOV TEXT_LEM, -(SP) > 3333 
DD 00620 103$:  PUSHL R : 
$8 F : CALLS , 5 SAGSSOUTPUT ; 
4 é : BLBS _— STATUS, Oss : 3334 
0 D 628 1048: MOVL STATUS, R ; 


SAESSRINI RUA UP SMGSSMINIMUM_ UPDATE = Minimum update calculatio ban 1985 ¢] +36: $3 AX-11 wR Be 
1-046 SMGSSPUT_SCREEN = Output to screen “0c t-1984 12: SMGRTL .BUGSRC shGaG MOPS. 632;1 


04 0062E RET 
50 01 DO 0062F 105$: MmOvL #1, RO 
04 00652 1068: RET 


; Routine Size: 1587 bytes, Routine Base: _SMGSCODE + 1708 


a pete 


UTOB_00 


——~ 


Wr 


=SSelF 


—O td ws ws 
HPADADASAIIVI EE BP PPLE 


WN — OO0ONOULS UT 0 0O@ 


ee ee ee a ce ee ce ce el el cl cel cel cel cl cl cel cel lt cl eld eld cl cells cl 
a ec ee ce a ee ee ce ee eet el ee ee ee ee ed ee ee 


Pot at et et ee te 
MEIN OO OOBNOMNE WN O ODN UE WIN OOOO UM 


INI MUA yepate = Minimum update galculatio b-Jan-1985 $3336:43 AxX-11 Blis 


PUT = Autobended entry for output 2-O0ct-1 


ZSBTTL ‘SMGSSAUTOB gureur = Autobended entry for output to screen’ 
GLOBAL ROUTINE SMGSSAUTOB_OUTPUT (PB_ID,TEXT_LEN,TEXT_ADR) = 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


ret_status.wic.v = SMGSSAUTOB_OUTPUT( 
PB 10.rl.v 
TERT_LEN. rl. 
TEXT ADR. rt or 
FORMAL PARAMETERS: 
PB_ID.rl.v Pasteboard id 
TEXT_LEN.rl.v Number of characters in text string 
TEXT_ADR.rt.r Address of start of text strin 


The text may contain escape sequences. 

IMPLICIT INPUTS: 

None 
IMPLICIT OUTPUTS: 

None 
COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 

The following may occur as a result of calling SMGS$SOUTPUT: 


Output aor occur. 
If buffering is enabled, buffers may fill and/or dump. 


ow 


SMGRTL .BUG 


SMGSSMINIMUM_UP 
oo 


Seee Se Se Se Ge Se Sete eee 
ut i 


; Routine Size: 


SMGSSMINIMUM_UPDATE = Minimum update calculatio $-Jan-19 AX-11 Bliss-3 P 121 
SMGSSAUTOB YO01 PUT - Autobended entry or output =30r 1382 ): 3g: 3 YONGRTL BUSERCTSMGAA NOES. 832;1 age 18) 
$ BEGIN 
: LOCAL 


PBCB; 
$ SSMGSGET_PBCB(.PB_ID,PBCB); 
5 RETURN SMGSSOUTPUT(.PBCB,.TEXT_LEN,.TEXT_ADR) 
91 END; ! end of routine SMGS$SAUTOB_OUTPUT 


0000 00000 -ENTRY SMGS$AUTOB_OUTPUT, Save nothing 
50 04 BC DO 00002 MOVL @PB_ID, RO 
11 19 0006 BLSS 
000000006 00 50 D1 0000 CMPL RO, PBD_L_COUNT 
08 14 O000F BGTR 1$° 
08 000000006 00 0 EO 0011 BBS RO, PBD_V_PB_AVAIL 
0 000000006 aF BO 0019 1$ MOVL #SMG$_IRVPAS~1D, u* 
50 0000000060040 pO 8 1 2$ MOVL § PBD_A_PBCBLRO), PBCB 
E 08 ac 7D 00 9 mMOVa  TEXT_CEN, -(SPS 
36 DD D PUSHL P CB™ 
0000v CF 0 FB 0 F CALLS , SMGSSOUTPUT 


53 bytes, Routine Base: _SMGSCODE + 1D3E 


H 12 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 9-Jan-1985 21:56: AX-11 Bliss-32 V4.0-742 Page 122 
rete ~ Snestoureuy = Output to screen . ae Sef 43:28:83 YONGRTL BUceRCTSMGAY MOS 832: 9 135 
3 133 8 1 ZSBTTL ‘SMGSSOUTPUT = Output to screen’ 
4 124 34 ! GLOBAL ROUTINE SMGSSOUTPU (P_PBCB,TEXT_LEN,TEXT_ADR) = 
; 16¢ 5 1 | FUNCTIONAL DESCRIPTION: 
ae 
; 165 i CALLING SEQUENCE : 
; 189 4 1/ ret_status.wic.v = SMGSSOUTPUT( 
; 3168 401 1! P_PBCB.rab.r, 
3; 3169 4 § 1! TEXT_LEN.rl.v 
; | 9 7 | TEXTIADR. rt. rd 
: 1% 4 5 | FORMAL PARAMETERS: 
: 174 4 ! P_PBCB.rab.r Address of pasteboard control block. 
; 176 409 ! TEXT_LEN.rl.v Number of characters in text string 
: 178 411 1! TEXT_ADR.rt.r Address of start of text string 
: 1” tig : } The text may contain escape sequences. 
; 181 414 | { IMPLICIT INPUTS: 
; E 41g 1 Contents cf PBCB. 
; 185 aig | { IMPLICIT OUTPUTS: 
: 188 r Y } PBCBCPBCB_W_OUTPUT_BUFLEN] may change if buffering is enabled. 
: 3189 422 1 | COMPLETION STATUS: 
; 3190 4 1! 
3 4 re ¢ : SS$_NORMAL Normal successful completion 
; 196 426 | | SIDE EFFECTS: 
: 3195 428 1: Output may occur. 
3 $199 r ; ' } If buffering is enabled, buffers may fill and/or dump. 


SMGSSMINIMUM_UP sreseninien UPDATE = Minimum update calculatio bis Jan-19 AX-11 Bliss-3 Page 123 
1-046 MGSSOUTPUT = Output to serosa” raat F #}; 3§: %3 ONGRTL BUGERCTSNGAI IES. 832;1 of 3 
; 3199 : 1 BEGIN 

: 3 433 ¢ BIND 

; i 435 PBCB = -.P_PBCB : $PBCB DECL '! pasteboard control block 

: 04 4 § TEXT = .TEXT_ADR : VECTOR BYTE, § string to be output 

; 3205 4 BUFLEN = PBCBLPBCB_W_OUTPUT_BUFLEN : WORD. ! number of chars in buffer 

: 3206 438 BUFSIZ = PBCB PBCB_ W “OUTPUT “BUF SIZ : ' size of buffer 

3 rhe BUFFER = .PBCB PBCB_ A “OUTPUT- BUFFER : vecrort av ie]. ' Output buffer 


oOo 


440 

441 2 LOCAL 

44 

44 STATUS; 


B-Janat98s 13:88:43 HaMcat  bdesaesshcaiuare.a32;1 Page 18) 


:* 
i nothing if the output is being controlled by RMS. 


IF_.PBCBCPBCB_V_RMS 
THEN RETURR “SMG$_WILUSERMS; 


f bu ni ay tes is enabled, ang the ae string won't fit in the buffer, 
hen output the buffer no 
t Te “a it, then just put it in the buffer. 
© not break up the string sf nce we do not want to output 
partial escape sequence. 


‘AA AA HAW AAA WANA 


IN POPORINORORUPORIPUR) 2 


WR OOOBNAVLS UN" OOONOUSw 


¥. eacetrere. v BUF ENABLED) 
THEN ! biffering is enabled 


te 
See if the string will fit in the buffer. 


IF .TEXT LEN+.BUFLEN cTRU -BUFSIZ 
BEGIN No 


THEN p buffer 
STATUS=OUTPUT(PRCBY .BUTLEN, BUFFER); 
IF NOT .STATUS THEN RETURN . STATUS: 
BUFLEN=0 
ND - Dump buffer 


E 
ELSE BEGIN Yes = append to “utter 


'¢ 

i Copy the text into the buffer, 

i update BUFLEN which keeps track of 
i how much data is in the buffer, 

! and then return. 


CHSMOVE (. TEXT_LEN, TEXT BUF FERC .BUFLEN)); 
BUFLENS .BUFLERS TEXT_LEN; 
RETURN 'SS$_NORMAL 


END; ! Yes = append to buffer 


MIPIPIPOPONOPONOPONOPOPononononon 
COnoOu 


WWA.AWAAAAIAA AE AI LA Nd 
MIMOIPOPUPIPIPONINS 

PAPA VUIMIUIE & EEL LLL EE 

SOUS AR WOOO NEAR WH OOD NOUR O 


WAAL. A.A AWAIN AAA AAA AAW 


MOPIPUTEPoORD 


“= 


le reach here if the string would not fit in the buffer. 
The buffer has been dumped. 
Put the new strin tate’ the buffer. 
If it will not wits ult f ousput it in chunks. 
We output as many ¢ er BS + aes | as we con. 
When we are ail Lo we are left with a string 
smaller than one buffer's worth, which we then 
put into our output buffer. 


INCR I FROM 0 Ay # 
7s QU .TEXT_LEN 
; output “next part of string 


Be Ge Se Se Ge Se Ge Se Ge Ge Se Ge Fe Fe Ge Fe Ge Ge Ge Se Fe Ge Ge Se Ge Fe Fe Se Ge Se Ge Se Se Ge Ge Ss Oe + SF Se Se Se Se see be te Sete Se Oe Ge Ge Se ee Sees 


SMGSSMINIMUM_UP SMG 
este" “SM 


Ss) 
oO 


SSSSSCCe SANNNIN AINSI 
oO wn Caen SsaNeKeoCN 


90 
33 
38 


] om 
PUT = 


RETURN 
END; 


08 


50 


6249 


50 


12 


14 
Output the string directly. 


STATUS=OUTPUT(PBCB,.TEXT “yer te 


IF NOT .STATUS THEN RETURN .STATUS 
END; ! no buffering 
SS$_NORMAL 
OFFC 00000 
5 04 C2 0000 
Ho 8 OR 
38 6c A? i ° 
00D0 (C7 03 €1 00011 
50 00000000G 8&F 44 poet? 
5A 8 AC OD 1F 1$: 
g OR iiss 
g 7 i Be 
2 B 000 
0204 8F BB 00C 
7 00 i 
0000v 55 3 08 004 
A £ we 
f fi 
1 OO04A 
| 
56 D4 3$: 
56 6— (C1 9 4$: 


MUM_UPDATE = Minimum update calculatio B-Jan-1985 #1: 36:43 


-ENTRY 


s 
SMGRTL .BUGSRC 


! could be 0 


Output to screen -Oct-1 
STATUS=OUTPUT(PBCB, .BUFSIZ,TEXTC.1)); 
if NOT .STATUS THEN RETURN .STATUS 

ND ; ougput next part of string 
ELSE BC TEN tent er vynet part of string 
=, a : 
CHSMOVE { .BUFCEN. TEXTC.1], BUFFER); 
EXITLOOP 
END ! buffer final part of string 
END ' buffering is enabled 
BEGIN ! no buffering 


sngssourPut.. Save R2,R3,R4,R5,R6,R7,RB,R9,= 
R10,R11 


08(R7), 18% 
_WILUSERMS, RO 


TEXT_LEN, R10 
12(R7), ?$ 

R2 
Re R10, RO 
113(R7). (SP) 
RO, (SPS 
#*M<R2,R9> 


R10, OTEXT AOR. (R2)CR9J 
a « (RB) 


AX-11 Blis att V4.0-742 
SMGMINUPD .B32; 1 


Page 125 
. (83 


12 
SMGSSMINIMUM_UP SMGSSMINI UPDATE = Minimum update calculatio b-dan-1 5 256: AX-11 Bliss-32 v4.0-742 Page 126 
1-046 ” SmcSSOUTPUY = Output to screen . a Seam 73:28:83 SMGRTL BUGERCTSNGAINIED. B32: 1 oe 18 
SA 50 01 0s CMPL =e RO,-RIO : 
16 1A BGTRU : 
o¢ BC46 OF PUSHAB @TEXT_ADR(IJ ; 3501 
4 AE DD PUSHL  4(SP) : 
dd PUSHL Ry : 
0000v cf ; F CALLS #3, OUTPUT : 
B D MOVL RO, STATUS : 
OE B F BLAS status, “3 : 3502 
a 7 5RB % 3 
ry. SA 4 78 5$ SUBW3 I, R10, (RB) : 505 
69 Oc BC46 é movC (RB), @TEXT_ADREIJ, (R9) : 3 
FFCB 56 GE 7FFFFFFF 4 868F FI 6$: ACBL 48147483647, (SP), I, 4$ : § 
16 11 BRB 9 : 349 
oc AC DD 7$ PUSHL TEXT : 351 
0480 8F 8B 0009 PUSHR #4M<R7.R10> : 
0000v ct 3 F 9 CALLS #3, Out : 
8 0 »D 9C MOVL RO. STATUS : 
04 5B CE OF BLBS § STATUS, 9$ : 3518 
58 p Ong 8$: MOVL STATUS. RO : 
4 A RET $ 
50 01 DO O00A6 9S: MOVL #1, RO ; 3522 
04 000A9 RET : 3524 


; Routine Size: 


170 bytes, Routine Base: _SMGSCODE + 1073 


SEP IRIN LRU LP present 
\- OUTPUT 


6 

95 
98 
99 
5 
04 
05 


PUPVIVIVIVIVSIVSVSVSVSVSOSISIS 
WAAWA AN HINIPOPONONOND 


oo 
Ooo 


ah vad 
id 


eat at RH st Ws 


DONO NE WIN $0 OG NOUS UW "OOOO 


Sk ek tal el tak et ee et 


NOVEM —OOODVNOUSWNO 


MIPMIPIPoPoRoToT 


PS  betdtdtdetbehb Ab Ab Ab th sh th th sh sh sh shah shai al 
CONOUVES WO 


s PANAMA 


GEAFUN SSS 


PEPE POPE AN AEE AEE AIA 


iw 


Oo 


NIMUM_UPDATE = Minimum update calculatio p- Jan-198s #3: 26: $3 AxX-11 BLi 


- Low level output -Oct-1 


ZSBITL "OUTPUT = Low level output’ 
ROUTINE OUTPUT (P_PBCB,TEXT_LEN, PYEXT_ADR) s 


3 FUNCTIONAL DESCRIPTION: 


Handles | Low level output by issuing a Q10 or calling RMS. 
No buffering occurs here. 

If CTRL/O was encountered, then we invalidate our knowledge 
of the screen. 


{| CALLING SEQUENCE: 
ret_status.wlc.v = OUTFUT( 
P_PBCB.rab.r, 
TEXT T_LEN. FL V 
TEXT"ADR. rt. rd 


{FORMAL PARAMETERS: 


P_PBCB.rab.r Address of pasteboard control block. 
TEXT_LEN.rl.v Number of characters in text string 
TEXT_ADR.rt.r Address of start of text string 


The text may contain escape sequences. 
! IMPLICIT INPUTS: 

Contents of PBCB. 
IMPLICIT OUTPUTS: 


NONE 
{ COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 

SS$-xyz errors from Q10 

SS$"xyz errors from SASSIGN 

RMS$_xyz errors from RMS (StS value only) 
i SIDE EFFECTS: 

NONE 


=742 
SMGRTL .BU RC SMGHINUPD. 832;1 


—y 
i 


at et te 


VSAM OO OCONOUNES Wit 


> 


FUSS SSSI SE £ 
DOONAN WT 


uw 
ooono 


PUPP PATIVIVIVIVIUT 


OOOO 


=OOODNOVNE WN SO OONOULS wn 


MADAMA 
woooovon 


PEAAPAAASAAAOAAAAAAAA OS 


MIINININ = S23 OSCS 


Be Se Se Se Se Se Se Ge Bs Se Se Ge Ge Se Be Ge Se Se Se Ge Be Ge FF Se Se Bs Ss Ge Se Se Ge Bs Ge Se Be Ss Ge Se Ss Be Oe Sees Be Se Se Ge Ge Se Ge Ge ee Ge Se Se Seas 


OME WN OOONO UE WIN OO 


INIMUM_UP thal _yPoate - Minimum update calculatio B-Jan-1985 ¢}: 26: #3 ateAt ie hiee a shealees. 832:1 


= Low’ level output =0¢t-1984 
BEGIN 
BIND 
PBCB = .P_PBCB : SPBCB_DECL; ! pasteboard control block 
LOCAL 
Q10_10S8 : VECTOR(4], 
STATUS; 


14 
ag nothing if the oqutput is being controlled by RMS. 


If _.PBCBCPBCB_V_RMS) 
THEN RETURN “nes AUER 


'¢ 
Null strings succeed no matter what. 


IF .TEXT_LEN EQL 0 
THEN RETURN SSS NORMAL; 


'¢ 

i Normally, we use Q10s to talk to this , verainal. 
! See if a channel has been assigned yet 

i. If not, assign a channel now. 


IF Pecerrere M_fHAN) EQL 0 
THEN BEGIN” ~! assigning channel 

! ##* Perhaps this code should be moved to SMGSCREATE_PASTEBOARD. 
LOCAL NAME_DESC : VECTORC2); ! Fixed length descriptor 
'¢ 
i Create a fixed tength descriptor for our device name string 
§ for use by SASSIGN 

VNAM_LENI; 

VNAMI; 

'¢ 


i Assign the channel. 
Put the resulting channel number in PBCBCPBCB_W_CHAN). 


STATUS=SASSIGN( DEVNAM = NAME_D 
Hl PBCBLPHCE. W_CHAND) ; 
IF NOT .STATUS THEN RETURN » STATUS 


END; ! assigning channel 


SMINIMUM_UPDATE = Minimum update calculatio B Jan 1985 


SMGSSMINIMUM_UP SMGS AX-11 Bliss-3 Page 129 $ 
esis OUTPUT = Low level output 2-0ct- 7138? 43; 3§: #3 YOMGRTL BUERC ISNCAIMOS. B832;1 ” (38) 1 
338 i ; iy Q10 h i 
ssue @ to output the string. : 

es A Be : : 
40 P %6 ? STATUS=$010W( CHAN 2 eer re ce W_CHAND, $ 
40 P 36 § EFN = at PBCB B EFNI, s 
ree P 36 FUNC s 19 WRITEQBCK OR 198m NOFORMAT 0 $ 
405 P 3634 (IF .PBCBLPBCB V_UNSOLICIT] TREN IOSM_ ENABLMBX ELSE 0), 3 
res P 3635 1088 = 010 1058 3 
40 P 36 P} = ,TERT_ADR ; 
408 P2 = {TEXT"LENS; ; 
09 6 3 If NOT .STATUS THEN rene STATUS; é 
10 639 IF NOT .Q10_10SBCO) THEN RETURN .Q10_10SB(0); ; 
tig 641 '¢ 3 
1 org : If the 1/0 was aborted by CTRL/O, then we have no idea how far 3 
14 64 ! the 1/0 got and so our knowledge of the screen is invalid. : 
15 644 ' We there ore invalidate our screen buffer by setting the CONTROLO bit. : 
ets 645 ' (We can't just snvat iéate the screen buffer here because our caller ; 
341 o*8 ! may set that buffer.) ; 
£19 ae oa 
$f ret if osTATYS FO. $$$_CONTROLO 3 
1 650 0_10S8(0) EQ£ SS$_CONTROLO F 
$§ 2] O* ien “PBCBLPBCB_V_CONTROLOJ=1; ; 
434 65 RETURN SS$_NORMAL 3 
425 654 : 
426 655 1 END; 3 
-EXTRN SYSSASSIGN, SYS$Q]0W 3 

000¢ tie OUTPUT: .WORD Save R2,R3 : 3526 3 

5E 18 $3 00 SUBL 2 see. SP : 3 

5 04 3 MOVL pace, R 3; 3574 3 

5 00D0 : MOVAB 208th j a3 : 3585 ; 

08 g 6 E BBC (R3), 1 3 ; 

0 00000000G 8F ° : nove aSmcs _WICUSERMS , RO ; 3586 3 

08 ac DS OOOIA 18: TSTL TEXT_LEN > 3592 F 

75 1 1D BEQL 3 3 

64 Ae ° 0001F TSTW 100(R2) ; 3601 3 

1 2 BNEQ 3 g 

6E 4 A C 4 MOYZWL (R ). NAME _DESC ; 3613 3 

v6 sOAE 1 & E 8 MOVAB Lap » NAME _DESC+4 : 35614 : 

7 C D CLRQ Py : 3622 ; 

64 Ad 9F é PUSHAB 10 (R2) 3 : 

OC AE OF ¢ PUSHAB DESC 8 3 

000000006 99 4 CALLS syssagsion 3 5 

0 C BLBC stiri ; 3623 : 

. F 2% CLROQ =( 3 3 

e 7¢ } CLROQ ~tap) 3 3 

8 AC 0D PUSHL VENT LEN r 3 

C ac OD 8 PUSHL TEXT”-ADR 3 é 

7E 7C CLRO -(SPT : 3 


SAGSERINI AUR _UP SAESSRINIAUN UPDATE = Minimum update calculatio §-Jan-1985 #1] +36: 23 pot NES V4.0-74 Page 130 
1-046 OUTPUT = Low level output “0c t-1984 12: SMGRTL .BUGSRC shGAINUPS. 832;1 (50) 
28 «AE OF 00048 PUSHAB Q10_10S8 : 
06 $3 fi 4 aC # ~ {38 3$ : 
80 BF 9A MOVZBL #128, R1 : 
8! ee : 
7€ 51 00600130 F ¢9 A 4$: BISL3 #304, R1, =(SP) : 
E 4 a2 3 62 MOV2WL 1 (3), -(SP) : 
7 6 Ao OA MOVZBL 102(R2). =(SP) : 
000000006 O¢ F A CALLS @ sySsa10w : 
: 1 BLBC =—_-s STATUS, 8$ : $038 
08 AE E 7% BLBS  Q10_10$8, 5$ : 3639 
AE BO 18 MOVL Q107J0SB, RO ; 
00000609 8F 50 p 7D 5$ CPL STATUS, #1545 : 3449 
00000609 &F 08 AE bi 00 be CMPL  Q10_10SB, #1545 : 3650 
4 iF 0 BNEQ 7$ F 
63 40 &F 88 000 gs: BISB2 #64, (R3) > 3651 
50 01 DO 00094 7$: MOVL at, : 3653 
04 00097 8$: RET : 3655 


; Routine Size: 152 bytes, Routine Base: _SMGSCODE + 1£1D 


uy 


+? Natta uP ts by hate at UPDATE = Minimum update calculatio Ba -Jan-19 


: $085 8? 4 


Bete Se ee Ge Se Se Ge 


TPUT = Low Level output 


AX-11 Bliss-3 


Sone Page 
SMGRTI. .BUGSRC SMGHY NOPD B32; 1 


2-0ct- 1382 #3: 38: $3 


1 
(5 


d ELuDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
_SMGSDATA 76 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Srgt ttt 
~SMGSCODE 7861 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 
Library Statistics 
cocccces Synbol§ ococeces Pages Processing 
File Total Loaded Percent Mapped Time 
Stitt SYSi. IBJSTARLET.L32;1 9776 135 1 581 0:01.0 
~$255$DUA1 qacectipe eat peng! Sarge 38 8 0 § 8: 0.1 
$255$DUA18.CSMGRTL.OBJISMGLIB.L32;1 46 7 16 3 .00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE) /NOTRACE/L1S=L1S$: SMGMINUPD/OBJ=0BJ$ : SMGMINUPD MSRCS$: SMGMINUPD/UPDATF = (BUGS : SMGMINUPD 


Size: 7751 coge + 186 data bytes 
Run Time 03:13.0 
ilesced” fae: 04:10.2 
Lines/CPU Min: 1136 
Lexemes/CPU-Min: 19480 
0 pages 


pees | Used: 
Compilation Complete 
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